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DATARIARUGA 



EXPRESSOES MATEMATICAS 



VARIAVEIS E NUMEROS 



NOMES E SENTENCAS 



DUE SAO LiSTAS 

COMANDOS PARA LISTAS 



Os recursos do LOGO nao se esgotam em 
seus eficientes comandos gr^ficos. 
Manipular palavras. representar dados, 
efetuar calcuJos matematicos - tudo 
isso LOGO pode, e muito mais. 



Neste terceiro e ultimo artigo da se- 
rie sobre prograTna<;ao LOGO, exami- 
naremos as caracteristicas fundamentais 



dessa lingaagem. Na realidade, segui- 
mos o caminho inverse do que e usual 
no aprendizado de outras linguagens, j^ 
que abordamos em primeiro lugar os co- 
mandos graficos. Mas esta e a maneira 
mais facil de entrar em contaio com o 
universe da programa<;ao — principal- 
mente para crian?as. Alias, justamente 
por causa da popularidade de seus re- 
cursos grificos, muita gente pensa que 
o LOGO e apenas uma "linguagem gra- 
fica", pripria para crianfas. 



Nada mais longe da verdade, Como 
o LISP, seu antecessor, o LOGO foi 
projetado de modo a simplificar a ma- 
nipulaijao de palavras e listas de pala- 
vras e frases. Essa caracteristica nao im- 
pede, contudo, que complexos progra- 
mas de Inteligeneia Artificial sejam de- 
senvolvidos com a ajuda do LOGO. 

Ao estudar linguagens imperativas, 
inclusive o BASIC, comesjamos por ana- 
lisar seus elementos basicos, tais como 
as formas de representaijao de dados 
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O que 6 um micromundo LOGO? 

Um micromundo 6 um conjunto co- 
nexo de procedirnentos, escritos em 
LOGO, que estruturam uma determina- 
da situapao ou ambiente de resolupio 
de problemas cognitivos. 

Esses procedirnentos podem ser 
combinados em outros procedirnentos, 
de forma cada vez mais complexa, imt- 
tando, assim, o desenvolvimento natu- 
ral do conhecimento da crianpa sobre 
uma parte do mundo, 

Exempltficando: podemos construir 
um micromundo em que a tela 6 a gaio- 
la de um coelhinho, com lugares para 
ele brincar, dormir, comer etc. Usando 
o LOGO, a crian9a e o professor efabo- 
ram v^nos procedirnentos para dese- 
nhar o ambiente e seus objetos, fazer 
o coelhinho se movimentar, levS-lo at6 
a area de dormir etc., de maneira pro- 
gressiva e hierSrquica. Esse micromun- 
do pode ser tao complexo e complete 
quanto sa queira. 



gumenios de uma opera?ao t'or<;a um re- 
suttado inteiro. 

Os operadores matematicos s5o 
iguais aos da linguagem BASIC: soma 
( + ), subtra^ao (-), divisao (/), tnuUi- 
plicagao (*), parSnteses etc. A ordem de 
execufao das operagoes tambem i a 
mesma. Usando, por exempio, o co- 
mando PRINT (ESCREVA, na versao 
em portugues), com funijao identica a 
que tem no BASIC, podemos fazer: 
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PRINT 2 + 2*2 

m 

ESCREVA 2 + I'i 

O resultado da operagao ser^ igual a 
8, pois, nesta expressao, efetua-se a mul* 
tiplica(;ao em primeiro lugar. 

As expressoes matematicas podem ser 
colocadas em outros comandos do LO- 
GO, como no desenho de graficos: 



ai 
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TO CUBO :NUMEaO 

PRINT :NtfflER0«:NUMERO*:NUMER0 

END 



m 



APRENDA CUflO :NLrMERO 

KaCREVA :NOMER0*;NXmERO*;NtJMER0 

FIM 

O procedimemo criado exige um ar- 
gumento numerico de entrada, e respon- 
de imprimindo na tela o cubo do mesmo: 

CUBO 3 
27 

CUBO 10 
1000 

Eis aqui ouiro procedimento, que cal- 
cula a media de dois numeros: 



I 
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TO MEDIA :Nl 
PRINT (:N1 + 
END 



:N2 

:N2)/2 



FORWARD (10 + 120) /3. 14 



(constanies e varidveis), os comandos de 
impressao etc, £ o que faremos agora 
com a linguagem LOGO. 

Como nos artigos anteriores, apre- 
sentaremos sempre duas versoes dos 
programas: a primeira, identificada pelo 
iogotipo Apple, corresponde ao padrao 
MIT LOGO, em ingles, adotado univer- 
salmente com poucas varia?6es; a segun- 
da, identificada pelo Iogotipo do MSX, 
corresponde k versao nacional, chama- 
da BRASLOGO, desenvolvida pela Uni- 
camp para a Uautec e adotada por ou- 
tros fabricantes, Ao final do artigo, da- 
mos a tradufao dos comandos usados 
para o MLOGO, versao nacional mui- 
to difundida, destinada ao Apple, 



MATEMATICA EM LOGO 



Como qualquer linguagem de progra- 
magao que se preze, o LOGO dispoe de 
amplos recursos destinados a cdlculos 
matematicos com diferentes niveis de 
comple-xidade; nao se restringe as qua- 
iro operafoes aritmeticas, 

O LOGO nao faz distinfao entre nii- 
meros inteiros e reais (numeros que po- 
dem ser fraciondrios, como 1.2, 3.14156 
etc.). Em alguns interpretadores, entre- 
tanto, a falta do ponto decimal nos ar- 



m 

PARAFRENTE (10 + 120)/ 3. 14 

Os procedimentos tambem compor- 
tam expressoes matematicas: 

TO PIZ 

PRINT 3.14156*2 

END 



m 



APRENDA PI 2 
ESCREVA 3,14156*2 
FIM 

Feito isso, sempre que digitarmos o 
comando PI2 pelo teclado, obteremos 
a seguinte resposta; 

2.28312 

Uma expressao pode utilizar varia- 
veis. Como voce deve estar lembrado, 
as varidveis recebem nomes, que podem 
ser de qualquer comprimenlo, e sao 
identificadas por dois pontos. Assim, 
um procedimento destinado a mostrar 
cubo de um numero qualquer seria es- 
crito da seguinte maneira: 



GUAGli 
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APRENDA MEDIA ;Ni :N2 
ESCREVA (:N1 + :N2)/2 
FIM 

Esse procedimenio requer a presen- 
*;a de dois argumentos: 

MEDIA 2 4 

3 

MEDIA I 2 

1.5 

Em alguns interpretadores LOGO, a 
resposta ao segundo comando podera 
ser igual a 1, ou seja, o resultado serd 
mostrado em forma inteira, pois os ar- 
gumentos de entrada estavam expresses 
desse modo. Se isso ocorrer, podemos 
for?ar uma operagao com resultados 
fracionarios, escrevendo: 

MEDIA 1.0 2.0 

Nao se esque<;a de colocar os dois ar- 
gumentos para o procedimento MEDIA. 
Caso contr^rio, o interpretador reclama- 
ra, exibindo uma men.sagem de erro. 

Observe que, em todas as expressoes 
aritmeticas exaniinadas, o simbolo da 




operagao matemitica a ser realizada 
aparece entre os argumentos da opera- 
gao (por exemplq, 2 + 2). Essa notagao, 
chamada in/ixa, i a mais usada em lin- 
guagens imperativas derivadas do FOR- 
TRAN. Mas existem dois outros tipos de 
notagao; a sufixa, ou notagao po]aca in- 
versa (RPN), que e usada em linguagens 
como o FORTH (a mesma operagao aci- 
tna seria escrtta 2 2 +), e a prefixa, que 
tambem 6 aceita pela linguagem LOGO. 
Nesse tipo de notagao, o comando pre- 
cede OS argumentos que usa. 

Para realizar operagoes prefixas no 
LOGO, empregam-se comandos ja exis- 
lentes no interpretador. Por exemplo: 
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SUM 6 7 

DIVIDE 3 1.2 
PHODUCT 3 4 

Em alguns interpretadores LOGO, 
esses comandos recebem nomes diferen- 
tes, como QUOTIENT em vez de DIVI- 
DE, ou MULTIPLY em vez de PRO- 
DUCT. Pode aconiecer, tambem, que 
o interpretador nao contenha o proce- 



dimento SUBTRACT. Nesse caso, bas- 
ta usar SUM, com um mimero negativo. 
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SOMA 6 7 
QUOCIENTE 3 1.2 
PHODUTO 3 4 

Se um desses comandos nao existir no 
interpretador LOGO que esta usando, 
deveri faze-lo APRENDER o novo pro- 
cedimento. 

Note que ^ possivel utilizar fungoes 
dentro de fungoes, como em: 
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DXyiDE SUM 3 2 SUM 4 5 
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QUOCIENTE SOMA 3 2 SOMA 4 5 

que corresponde a notagao infixa; 
PRINT (3+2)/(4+5) 
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Nao tente fazer o mesmo, porem, 
com OS procedimentos CUBO e ME- 
DIA, desenvolvidos anteriormente, pois 
des apenas imprimem os respectivos re- 
sultados, nio tendo meios de "pass^- 
los" a uma outra fun?ao. Experimen- 
te, por exemplo, digitar a seguinte ex- 
pressao para ver o que acontece: 

CUBO MEDIA 3.4 7.88 

Para retornar um resultado, o proce- 
dimento precisa inclui-lo na lista de va- 
riaveis na chamada. Uma alternativa 
mais simples consiste em usar o coman- 
do OUTPUT {ou ENVIE, na versao pa- 
ra a Lingua portuguesa): 
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TO MEDIA :N1 :N2 
OUTPUT (:N1 + :N2)/2 
END 



f)^ 



APRENDA MEDIA : Nl :N2 
ENVIE f:Nl + :N2)/2 
FIM 

Agora, voce poderd recorrer ao pro- 
cedimento MEDIA como argumento de 

outro procedimento. 



FUNCOES MATEMATICAS 



O LOGO possui v^rias fun<;6es ma- 
temalicas que fadlitam o citculo de ex- 
pressSes mais coraplexas — algebricas, 
trigonometricas etc. 
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REMAINDER Resto de uma divisao 



ROUND 

ABS 

INT 

SQftT 

SIN 

COS 
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Arredondamento 

Absoluto 

Inteiro 

Raiz quadrada 

Seno 

Co-seno 



Eis um programa que Simula dez lan- 
^amentos de um dado: 



H 



TO DADOS 

REPEAT 6 t PRINT RANDOM 6] 

END 



m 



[ESCBEVA SORTEIEATfi 6] 



TO DADOS 
REPITA 6 
FIM 

Para inicialtzar uma seqiidncia alea- 
tbria, utlliza-se o comando RANDO- 
MIZE (REPRODUZA, na versao 
BRASLOGO), 



PALAVRAS 



t. possivcl especificar palavras (cons- 
tantes alfanum^ricas) em LOGO, iden- 
tificando-as com o serial de aspas. Se 
quiser, per exemplo, imprimir no video 
a palavra COMPUTADOR, digite: 
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PRINT "COMPUTADOR 



fffi 



ESCREUA "COMPUTADOR 

Note que nSo se fecham as aspas, co- 
mo no BASIC. Se voce se esquecer de 
colocar as aspas antes da palavra, a ma- 
quina entendera que COMPUTADOR e 
o nome de um niimero ou de procwlimen- 
10 criado anteriormente; nao o encontran- 
do, exibira uma mensagem de erro, 

Como o comando de impressao acei- 
ta apenas um argumento, as formas que 
se seguem tambem sao incorretas: 



\Si 



PRINT "BOM DIA 
PRINT "BOM "DIA 



RESTO 


Resto de uma divisao 






INTEIRO 


Inteiro 


fffi 




RAIZQ 


Raiz quadrada 






SENO 


Seno 


ESCREUA 


"BOM DIA 


COS 


Co-seno 


ESCREVA 


"BOM "DIA 



S6 alguns Interpretadores tSm o con- 
junto complete dessas fungoes. 

O LOGO conta ainda com um gera- 
dor de numeros aleat6rios, litil em uma 
serie de apllca^oes, inclusive jogos. 



No primeiro caso, o interpretador 
LOGO informard que ainda nao conhe- 
ce DIA. No segundo, d'nk que nao sabe 
que fazer com "DIA (ou, dependen- 




TRADUpAO PARA O MLOGO 

Os comandos do MLOGO, para o 
Apple, correspondentes aos comandos 
do BRASLOGO deste artigo, sSo: 



BRASLOGO 


MLOGO 


ESCREVA 


MOSTRAR 


ATRIBUA 


FACA 


COLOQUE 


— 


SOMA 


SOME 


PRODUTO 


PRODUTO 


QUOCiENTE 


QUOC 


RESTO 


RESTO 


RAIZQ 


ROD 


INTEIRO 


INT 


_ 


APROX 


REPRODUZA 


RESORTEIE 


S0RTEIEAT6 


SDRTEIE 


SEN 


SEN 


COS 


COS 


ARCTAN 


ATAN 


PALAVRA 


PALAVRA 


SEIMTENqA 


SENTENQA 


PRIMEIRO 


PRIMEIRO 


SEMPRlMEtRO 


SEMPRIMEIRO 


ULTIMO 


ULTrMO 


SEMULTIMO 


SEMULTIMO 


ENVIE 


SAIDA 



do do computador, que ha um argumen- 
to a mais). ^ importante lembrar que 
um espago em branco sempre indica, em 
linguagem LOGO, o fim de uma pala- 
vra, e que nSo podemos colocar mais de 
uma palavra ap6s um sinal de aspas. 
Para imprimir duas palavras usando 
um mesmo comando, precisamos antes 
junta-las em um linico argumento. Exis- 
te um comando primilivo que faz isso: 
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PRINT WORD "BOM "DIA 



ffM 



ESCREVA PALAVRA "BOM "DIA 

O comando WORD (ou PALAVRA) 

toma dois argumentos — que sio letras 
ou palavras precedidas de aspas — e os 
revine em uma s6 palavra. Esta ^ passa- 
da para o comando PRINT (ou ESCRE- 
VA). que entao a coloca na tela. 

O LOGO possui diversos comandos 
extremamente poderosos para lidar com 
palavras. Para extrair letras de uma pa- 
lavra, utilizam-se estes comandos; 




PRINT PRIMEIRO SEMPRIMEIRO 

"ABCD 
PRINT ULTIMO SEMULTIMO "ABCD 
PEINT PALAVRA PRIMEIRd 'ABCD 
ULTIMO "ABCD 

Note como os comandos sao enca- 
deados: PRIMEIRO SEMPRIMEIRO 

extraj a segunda letra da palavra ABCD; 
ULTIMO SEMULTIMO exirai a penul- 
tima palavra e assim por dianie. 

O pequeno procedimenio recursive 
mostrado a seguir e capai de extrair to- 
das as letras de uma palavra: 

APRENDA LETRAS : PALAVRA 

SE ! PALAVRA = " ENTAO [PARE] 

ESCREVA PRIMEIRO : PALAVRA 

LETRAS SEMPRIMEIRO : PALAVRA 

FIM 

O procedimento ilustra o conceito de 
palavra vazia — ou seja, palavra sem ne- 
iihum caractere. A chamada recursiva 
de LETRAS, na quart a linha, usa como 
argumento o SEMPRIMEIRO da pala- 
vra que foi entrada. Esta vai sendo re- 
duzida ate nao ter mais nenhuma leira. 
A recursao so se encerra quando o teste 
executado pelo SE da segunda linha e 
verdadeiro. A palavra vazia € assinala- 
da pelo sinal de aspas seguido de um es- 
pago em branco. 



ATRIBUICAO 



LETRAS BUTFIRST 
END 



: PALAVRA 



FIRST - Extrai a primeira letra. 
LAST - Extrai a ultima letra. 
BUTFIRST - Extrai todas as letras, me- 
nos a primeira. 

BUTLAST - Extrai todas as letras, me- 
nos a ultima, 

Como exemplo, tente os comandos: 

PRINT FIRST "ABCD 
PRINT LAST 'ABCD 
PRINT BUTFIRST "ABCD 
PRINT BUTLAST "ABCD 
PRINT FIRST BUTFIRST "ABCD 
PRINT LAST BUTLAST "ABCD 
PRINT WORD FIRST "ABCD LAST 
"ABCD 

Note como os comandos s3o enca- 
deados: FIRST BUTFIRST extrai a se- 
gunda letra da palavra ABCD; LAST 
BUTLAST extrai a penultima palavra etc 

O pequeno procedimento recursivo 
que mostramos a seguir i capaz de ex- 
trair todas as letras de uma palavra: 

TO LETRAS : PALAVRA 

IF t PALAVRA » - THEN STOP 

PRINT FIRST r PALAVRA 



O procedimento ilustra o conceito de 
palavra vazia — ou seja, palavra sem ne- 
nhum caractere. A chamada recursiva 
de LETRAS, na quarta linha, usa como 
argumento o BUTFIRST da palavra que 
foi entrada. Esta vai sendo reduztda ate 
nao ter mais nenhuma letra. A recursao 
s6 se encerra quando o teste executado 
pelo IF da segunda linha e verdadeiro. 
A palavra vazia e assinalada pelas aspas 
e um espaijo em branco. 



PRIMEIRO - Extrai a primeira letra. 
ULTIMO - Extrai a liltima letra. 
SEMPRIMEIRO - Extrai todas as le- 
tras, nienos a primeira. 
SEMULTIMO - Extrai todas as letras, 
menos a ultima. 

Como exemplo, tente os comandos: 

PBIMT PRIMEIRO "ABCD 
PRINT ULTIMO "ABCD 
PRINT SEMPRIMEIRO "ABCD 
PRINT SEMOLTIMO "ABCD 



O comando de atribuigao — LET, 
em linguagem BASIC — tamb^m exis- 
te em LOGO. Com ele, podemos arma- 
zenar niimeros ou resultados de expres- 
soes em variaveis. e dar-lhes nome. 
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MAKE 'IDADE 15 
ATRIBUA "IDADE 15 

Podemos ainda colocar uma palavra 
em vari^vel: 
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MAKE "NOME "JOAQUIM 



fffi 



ATRIBUA "NOME "JOAQUIM 

Experimente verificar o conteiido das 
varidveis NOME k IDADE, com: 
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PRINT ;NOME 
PRINT : I DADE 
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ESCREVA :NOME 
ESCREVA :IDADE 



Como voce provavelmente deve ter 
observado, usamos dois pontes, _e nSo 
aspas, qyando estamos nos referindo a 
uma variave! ja criada. Esta e uma ca- 
racteristica fundamental do LOGO. 
Nessa linguagem, ao comrario do BA- 
SIC, e necessdrio diferenciar explicita- 
menie as referencias a variavel ("NO- 
ME) e ao seu conteiido (:NOME). 

Na realidade, todos os etementos do 
LX)GO sao definidos do mesmo modo, e 
armazenados na mesma estrutura. Tanto 
OS comandos (programas) qiianto os da- 
dos sao palavras. Numeros tambem sap 
iraiados como palavras. Assim, e perfel- 
tamente possivel fazer-se algo como: 
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PRINT "2.34 + '19, B7 
PRINT BUT FIRST 12.345 



Wi 



ESCREVA '2.34 + "19-87 
ESCREVA SEMPRIMEIRO 12.345 

Eis aqu) um pequeno programa que 
ilustra essa caracteristica do LOGO. Ele 
imprime uma tabeSa contendo o quadra- 
do e a raiz quadrada de todos os nume- 
ros inteiros, de Nl a N2: 
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TO TABELA :N1 :N2 

IF :N1=:N2 THEN STOP 

PRINT WORD :N1 iNl«Nl 3QRT[iNl) 

TABELA ;NX+1 :N2 

END 
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TO TABELA :N1 :N2 

SE ■N1=:N2 ENTSO [PARE] 

ESCREVA PALAURA : Nl :N1*N1 

aAIZQ[:Nl) 

TABELA :Ni+l :N2 

FIM 

Para fazer procedimento TABELA 
chamar a si mesmo, usamos a recursao 
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incrementando a variavel de iniclo :N1. 
A segunda linha do procedimento veri- 
fica o valor dessa variavel, parando se 
ela ja tiver atingido o maximo desejado 
(;N2). Caso contrario, imprime na tela 
uma linha contendo o mimero, sea qua- 
drado e sua raiz quadrada. Como o co- 
mando' de escrita'aceita um s6 argu- 
mento, precisamos usar um "aglutina- 
dor" dos diferentes numeros, colocan- 
do-os em uma linica lista. por meio do 
comando WORD (ou PALAVRA). 



Todo o pofencial do LOGO se reve- 
la quando examinamos a ultima de suas 
estruturas basicas de dados: a iisfa, um 
conjunto de palavras indicado por meio 
de colchetes. Por exempio: 

[TIGHE LEAO GATO ] 

e uma lista com tres elementos, separa- 
dos por brancos. 

Podemos dar nome as listas: 
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MAKE "FELIN03 [TIGRE LEAO GATO]' 
MAKE "IMPARES [1 3 5 7 9J 
MAKE 'COL EGAS [JOAQUIM 15 MARIO 
14] 



m 



ATHIBUA "FELINOS [TIGRE LEAO 

GATO] 

ATRIBUA -IffPARES [1 3 5 7 9) 

ATRIBUA "COLEGAS t JOAQUIM 15 

MARIO 14] 

Se usarmos o comando PRINT (ou 
ESCREVA) seguido do nome de uma 
lista. obteremos seu conteiido comple- 
te. Uma lista pode comer outras listas: 
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MAKE "CARNIVOHOS [FELINOS LOBO 
RAPOSA] 



fffi 



ATRIBUA -CARNIVOHOS [FELINOS 
LOBO RAPOSA] 

Todas as fun^oes utilizadas para ma- 
nipulacao de palavras aplicam-se tam- 
bem a iistas. Por exempio: 

S] 

PRINT FIRST FELINOS 




Ouais as etapas para o desenwolvimen- 
to de uma nova linguagem? 

Desenvolver uma nova linguagem 
nao 6 diflcil = tanto que existem cen- 
tenas delas que nunca passaram do es- 
tSgio de mera "brincadeira" ciertffica 
para uma efetiva implementapao e dis- 
tribuigao no mercado. 

Em primeiro lugar, deve-se definir se 
a linguagem ser4 imperativa, funcional, 
procedimental etc. e que t'tpo de co- 
mandos, fungoes e instrugoes terci. De- 
pois, 6 preciso decidir se serci uma lin- 
guagem interpretada, compilada, ou 
ambas- 

Finalmente, escreve-se o programa 
— geralmente em Assembler, C, ou 
qualquer outra linguagem otimizada pa- 
ra o desenvolvimento de ferramentas 
de software — que ird realizar o pmces- 
so de traducao da nova linguagem em 
c6digos de mSquina destinados ao 
computador escolhido. 

As t^cnicas para a elaboraQao do 
compflador ou interpretador, comple- 
xas e altamente especializadas, sao en- 
sinadas em cursos superiores de anSli- 
se de sistemas, 
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ESCREVA PRIMEIRO FELINOS 

Isso fari com que o primeiro elemen- 
to da lista, que e TIGRE. seja impresso 
na tela. 

Uma lista pode ter apenas um ele- 
mento, ou nenhum. Nesse caso, deno- 
mina-se Usta vazia, e e representada pe- 
lo simboto 1 1. Para unir duas listas, usa- 
mos o comando primitivo SENTENCE 
(ou SENTENtA): 
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PRINT SENTENCE COLEGAS IMPARES 
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ESCREVA SENTENCA COLEGAS 
IMPARES 

Procuramos aqui demonstrar a rique- 
za e a versatilidade do LOGO, Espera- 
mos ter motivado o leitor a continual 
explorando essa poderosa linguagem. 
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FUNCOES 

PODIIROSA! 



MAIOR MULTIPLO 



MENOR MULTIPLO 



RESTO OE UMA DIVISAO 



ARREDO NDA MENTQ 
PAR OU IMPAR? 



comando DEF FN permite incorporar 
ao elenco de fun^oes matemciticas 
do BASIC lim conjunto adicional 
de calculos de grande interesse para 
programador. Utilfze-o. 



No artigo da pigina 608, vimos co- 
mo definir novas fungoes e usa-las em 
diversos lipos de manipula^ao de dados. 
Trataremos aqui de certas funijoes ma- 
tematicas uteis ao programador, 

LFm extenso grupo de fun<;6es mate- 
maticas refere-se aos mddu/os, mimeros 
que *'cabem'* dentro de outros niime- 
ros, OU que restam de uma divisao. 

Ha vdrias apiicafoes para esses c^l- 
culos. Tomemos como exempio uma 
questao corriqueira, que envoJve a ca- 
tegoria mais geral dos multiplos: qual e 
o primeiro miiltiplo de 100, menor ou 
iguai a 345? Nao e preciso ser nenhum 
genio para chegar k resposta — 300, que 
e o arredondamenro do ntimero 345 pa- 
ra baixo, ate a centena mais proxima. 
Mas qua! e o primeiro miiltipio de 64, 
menor ou igual a 5 11 ? Eis uma funijao 
que resolve esse problema: 
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DEF FNMNCN1,N2)-INT(N1/N2)*N2 

O segundo argumento corresponde 
ao numero cujo miiltiplo queremos 
achar; o primeiro, ao valor mAximo des- 
se multiplo. Nos exemplos dados, pode- 
riamos usar: PRINT FNMN(345,1(K)) e 
rNMN(5n,64). Como o Apple, o 
TK-2000 e o TRS-Color nao admitem mais 
que um argumento por fungao, a linha 
anterior nao pode ser executada nessas 
maquinas. A solugSo e utilizar s6 um ar- 
gumento (veja o artigo da pagina 608). 

Tambem interessante € a fun^ao que 
determina o primeiro multiplo de um 
numero, superior a um certo valor. 
Exempio: o primeiro miiltiplo de 100 
maior que 3 022 e 3 100. 
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DEF FNMM(N1,N2)-INT(N1/N2)*N2+ 
N2 

Os argumentos tern o mesmo signifi- 
cado que OS da fun?ao anterior. 



Existem ainda outros tipos de arre- 
dondamento. O mais comum consiste 
em arredondar os digitos da parte fra- 
ctonaria de um numero usando a "re- hS fi"! [ cf) 1 
gra do 5": se o digito a desprezar e 
maior ou igual a 5, o que esti a sua es- 
querda e arredondado para cima; caso 
contririo, este nao muda. A fun(pao que 
executa esse tipo de arredondamento e: 



pregada quando se quer determinar se 
um numero e par ou impar. 



DEF FNPI(N)=-2-INT{N/2)*2 
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DEF FNAR(N,D)-INT(N*10**D>/10*« 

D 

Q 

DEF F^fARtN,D)-INTtN*10TD)/10TD 

DEF FNAHtN,D)-INT(K*10-D)/10-D 

A funcao tern dois argumentos: N, o 
numero a arredondar, e D, o numero de 
decimais desejado. Se quisermos, por 
exempio, arredondar para dois decimais 
o niimero 23,4567, especificamos PRINT 
FNAR(23.4567,2). 

Tambem e litil a fungao de arredon- 
damento que determina o proximo nii- 
mero inteiro a partir de um numero fra- 
cionario. 6 uma fungao diferente de 
INT (que obt^m a parte inteira de um 
numero, arredondando em alguns ca- 
ses), ou de FIX (que determina apenas 
a parte inteira, sem arredondar): 
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DEF FNRDCN}-FIX( [FIX(N*10)+SGN 
(N)*5)/10) 
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DEF FNHDCN)-INT( CINT(N*10)+SGN 
{N)*5)/10J 

Outra funcSo importante 6 a que cal- 
cula o resto inteiro de uma divisao en- 
tre dois niimeros Nl e N2. 
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DEF FNRECN1,N2)-N1-FNMN(N1,N2) 

Utilizamos aqui a funpao FNMN, j^ 
definida. A fun?ao FNRE pode ser em- 



DEF FNPI fN) -FNBE{N. 23 

Se o resultado da fungao for 1 , o nii- 
mero e I'mpar; se for 0, e par. 

O menu deste programa permite les- 
tar as fungoes apresentadas: 
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25 DEF FMMMCN1.N2)»INT(N1/N2)*N 

2+N2 

30 DEF FNMN [Nl,N2) -INT (Nl/N2)*IM 

2 

35 DEF FNRE{N1,N2)"N1-FN«N(N1,N 

2) 

40 DEF FNHD(N)-F1X((FIX{N*10)+S 

GN{N)*5)/10) 

50 DEF FNPI (N) -FNRE CN, 2) 

60 DEF FNAR(N,D)-INT(N*10'D)/10 

'D 

100 CLS 

110 PRINT "DEMONSTRACAO DE FUNC 

OES MATEMATICAS" 

120 PRINT 

130 PRINT "(1) PHIMEIHO MULTI 

PLO MAIOR" 

140 PRINT "(2) PHIMEIHO MULTI 

PLO MENOR OU IGUAL" 

150 PRINT "{3) RESTO DE UMA D 

IVISAO" 

160 PRINT "(4) ARREDONDAMENTO 

DE UM NUMERO- 
155 PRINT "(5) ARREDONDAMENTO 
PARA MAIOR INTEIRO* 
170 PRINT "(63 PAR OU IMPAB" 
180 PRINT "(7) FIM" 
190 PRINT 

ZOO INPUT "OPCAO "iOP 
210 IF OP-7 THEN STOP 
220 IF 0P>3 THEN INPUT "ARGUMEN 
TO ";N:GOTO 250 

230 INPUT "PRIMEIRO ARGUMENTO " 
;N1 

235 INPUT "SEGUNDO ARGUMENTO '; 
N2 

240 IF OP-1 THEN X-FNMM (Nl ,N2) 
250 IF OP-2 THEN X-FNMN (Nl , N2) 
260 IF OP-3 THEN X-FNRE (Nl , N2) 
270 IF OP-4 THEN X-FNAIKN} 
275 IF 0P=5 THEN X=FNHD(N3 
280 IF OP-6 THEN X-FNPI (N3 
290 PRINT "RESULTADO - ";X 
3 00 GOTO 120 
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Quer d'izer que voce acredita ser 

Mcil blefar urn computador? Experimente 

estes programas: eles mudarao 

sua "arrogante" opiniao, colocando-o 

diante de urn imbativel advers^rio. 




JOGOS DE BLEFE 



ALEATORIEDADE 



COMO CLASSIFICAR 



AS POSSIBILIDADES 



AS REGRAS DO JOGO 



USO DA ESTATISTICA 



QUE E ALISAMENTO 



EXP ONENCIAL 
TECNICA DE 



SOMA CUMULATIVA 




Um computador que possa enfrentar' 
um blefe nao e coisa do futuro: jd exis- 
te aqui e agora. Com os programas em 
BASIC deste artigo, nao ha escapatdria: 
a niaquina serd implacdvel com quern 
ousar desafia-la em um classico jogo de 
blefe: Papel, Pedra, Tesoura. 



E UMA PEDRADA 



Jogos de blefe sao todos aqueles em 
que ambos os participantes mostram 
suas jogadas ao mesmo tempo, nao ha- 
vendo nenhuma informagao previa so- 
bre a probabilidade da jogada de cada 
um. Um exempio cIAssico e Papel, Pe- 
dra, Tesoura, no qual dois jogadores re- 
presentam com gestos a forma de uma 
pedra, de uma folha de papel ou de uma 
tesoura. A escolha de cada um e revela- 
da simultaneamente, como em um jogo 
de par ou impar. Ganha a rodada aqueie 
que mostrar o objeto mais poderoso, de 
acordo com as seguintes regras: 

- tesoura corta papel, portanto, tesou- 
ra ganha; 

- pape! embrulha pedra, portanto, pa- 
pel ganha; 

- pedra quebra tesoura, portanto, pedra 
ganha. 

Se ambos os jogadores escolherem o 
mesmo objeto, havera empate. Joga-se 
um numero predeterminado de rodadas 

- vinte, por exempio — e conta-se um 
ponto para cada rodada ganha. 

Neste artigo, desenvolveremos duas 
versoes de um programa que joga Pa- 
pel, Pedra, Tesoura muito bem. Tao 
bem que voce atd se sentira um pouco 
abalado quando perceber que o compu- 
tador parece adivinhar suas inten^oes... 



MAIS SOBRE BLEFE 



Como um programa i capaz de pre- 
dizer eventos aparentemente aleatorios? 
Uma das "saidas" seria a simples adi- 
vinhagao — ou seja, o programa sortea- 
ria niimeros ao acaso (digamos, o nii- 
mero 1 representaria o papel, o 2, a pe- 
dra, e o 3, a tesoura), tanto para deter- 
minar a jogada do computador, quan- 



to para tentar adivinhar a do oponente. 
Um jogo como este nao e satisfatorio do 
ponto de vista estrategico: com um nu- 
mero de rodadas grande, certamente se 
chega a um empate. 

Para sorte do computador, entretan- 
to, o homem nao age de maneira pura- 
mente aleat6rta, tendendo a exibir com 
maior freqiiencia um ou dois tipos de 
objetos, Quase sempre, porem, os pa- 
droes de apresenta?ao sao bem mais 
complexos, seguindo ciclos ou mudan- 
do gradativamente as probabiiidades. 

Alem de sua incapacidade natural de 
atuar como um gerador perfeito de nii- 
meros aleatorios, o jogador humano 
tern mais um ponto vulneravel: a com- 
pulsao a responder ao que acontece no 
jogo. Quer esteja ganhando, quer este- 
ja perdendo, t quase certo que formu- 
lara "teorias" — apelando, via de re- 
gra, para a supersti<;ao — sobre quais 
sao as respostas com maior chance de 
garantir-Ihe a vttoria. A distracao pro- 
porcionada pelo jogo tambem tende a 
reduzir a frieza matematica de um jo- 
gador, mesmo que ele lute contra isso. 

De qualquer forma, nao rest a diivi- 
da de que um jogador humano, por ser 
humano, tentara ampliar seus ganhos ao 
maximo de alguma estrategia. Isso sig- 
nifica que havera sempre um vies, ou vi- 
cio de jogada, que, se cuidadosamente 
anaiisado, poderd dar indicios de como 
sera seu proximo lance. 

Essa andli-se poderia ser feita por 
meio de cdlculos estatisticos de diversos 
tipos. Mas o computador e bem mais 
eficienie no que se refere a cilculos — 
e e isto o que Ihe permitira sair vitorio- 
so em um jogo de blefe. 

Se um jogador modifica sua estrate- 
gia gradualmente, a tecnica estatistica 
mais adequada e a do alistamento expo- 
nencial. Se, ao contririo, o oponente 
muda de tatica rapidamenie, a melhor 
tecnica e a da soma cumulativa. 



COMO JOGAR 



Para enfrentar o computador em Pa- 
pel, Pedra, Tesoura, voce precisa sim- 
plesmente pressionar a tecia 1, 2 ou 3, 
quando chegar a sua vez. 

£ importante notar o seguinte: em- 



i 



bora a m^quina tenha uma grande chan- 
ce de vence-lo, ela nao frauda o jogo, 
"olhando" sua jogada antes de decidir 
a dela. Na verdade, o mi^todo utilizado 
consiste em fazer o computador anali- 
sar as escolhas j^ feitas e decidir antes 
que VOC& entrc uma nova jogada. 



ALISAMENTO EXPONENCIAL 



O alisamento exponencial 6 a tccni- 
ca estatistica enipregada para regulari- 
zar contorno de uma curva cheia de 
altos e baixos. Se voce colocar em um 
grdfico o numero de pedras, tesouras e 
pap^is que o oponente apresentou em 
cada unidade de tempo (por exemplo, 
a cada dez jogadas), a curva terd o as- 
pecto de uma serra. Porim, regularizan- 
do o contorno da curva — ou seja, tor- 
nando as subidas e descidas mais "sua- 
ves" — , o computador detectard algu- 
ma tendencia significativa a longo pra- 
zo, come, por exemplo, um aumento ex- 
pressive na apresentacao de lesouras. 

As tecnicas de alisamemo utilizam so- 
mas ponderadas das jogadas anteriores. 
No caso especifico do alisamento expo- 
nencial, pesos menores sao dados para 
jogadas mais antigas, e pesos maiores, 
para jogadas mais recentes. 

Ao execmar o programa, ele inicial- 
mente pediri que voce entre um "fator 
de esquecimento". Quanto maior o va- 
lor (inteiro, positive) que voce fomecer, 
maior o numero de jogadas anteriores 
que o computador deixara de conside- 
rar. Assim, fieara mais facil vence-lo. 



r> CLEAR 31Q99: GOSUB SOO : 
BORDER 0: PAPER 0: INK 7: 
CLS 

7 DIM A$(3.9): LET AS(1)="PE 
DHA": LET AS ( Z> ="PAPEL" ; LET 
A$(3)="TES0tIHA'' 
10 DIM HC3,2): DIM XC2): DIM 
Q(3.3) : DIM C(Z,3) : DIM A(2.3 
) : DIM Pt3,3) : CLS 
20 FOB 1=1 TO 3; LET HCI.l)-- 
COS ((T-2)«Pl*2/3) : LET H(I,2 
)=-STN ( CI-2)*PI*2/3) : NEXT I 
30 FOR T=l TO 3: FOR J=I TO 2 
: LET A(J,T}=.01: NEXT J: 
MEXT T 

40 INPUT "DIGITE FATOR DE ESQ 
UECTMENTO (0-1) . VALOft SUG 
ERIDO .85 ":W 

70 FOR 1=1 TO 3: FOR J-1 TO 3 
: LET P(I,J)=SGN (I-J~3*INT ( 
a-J+1.5)/3) ) : NEXT J: NEXT I 

LET S=0 
60 LET U=l: LET S=0 : LET U2=0 
: LET WW=0: LET U3=0 
100 LET V=INT (BND*3}+1 
no PRINT INK 6; PAPER 2i" 1 
= PEDRA. 2-PAPEL. 3-TESOlJRA " 



120 INK 6: PLOT 8.167: DRAM 

239,0: DRAW 0.-159: DRAW -239, 

0: DRAW 0.159 

200 FOR T^'l TO 3: LET I=U 

210 IF {UZ=0 AND T=2) OR (U3=0 

AKD T=3) THEN GOTO 280 

220 IF T=2 THEN LET I'ABS ( (U 

-U2)-2*(U=VV)-3*CCU<>U2) AND ( 

UOVU) ) ) 

230 IF T=3 THEN LET I=ABS { CU 

=U3]-2*CU=V3)-3*Klt<>U3) AND ( 

U<>U31)1 

24 FOR J* I TO 2: LET A{J.T)=A 

tJ,T)*W+H(I,J) : LET C<J,T)=CCJ 

,T)«W+3*H(I. J)*H(I,J)+.01 

250 LET X(J3=ACJ.T) /C(J,T) : 

NEXT J 

260 FOB 1=1 TO 3: LET Q(I,T)-1 

/3: FOR K=l TO 2: LET Q(I,T)-X 

(K)*H(I,K3: NEXT K' NEXT I 

280 NEXT T: LET U2=U: LET W = V 

: IF U=V THEN LET W=U+l-3* 

INT (U/3) 

290 IF UOV THEN LET U.3=Ur 

LET y3=Vr IF P(U3,V3)<0 THEN 

LET WW=ir3: LET U3-V3: LET V3 = 

wy 

300 LET X=-1E30: FOR T=l TO 3: 
IF (T=2 AND U2=0) OH (T=3 AND 
U3-0) THEN GOTO 370 

310 IF T=l THEN GOTO 350 

311 IF T=2 THEN GOTO 320 

312 IF T''3 THEN GOTO 340 

3 20 LET MM-6-U2-UV: LET QI=Q(1 

,T) : LET Q2='Q(Z,T): LET Q3 = Q(3 

,T) : LET Q{U2,T)-Q1: LET Q(W, 

T3=Q2! LET Q(WW.T)=Q3 

330 GOTO 350 

340 LET WW-6-U3-V3: LET Ql-Od 

,T> ; LET Q2=QC2.T): LET Q3=Q(3 

T) : LET Q(U3.T)=01: LET Q(U.T, 
T)-Q2: LET Q(MW,T)=Q3 
350 FOR G=l TO 3: LET P=0 : FOR 
1=1 TO 3: LET P=P+P (G , I ) *Q < I ,T 
); NEXT I; IF P>X THEN LET X' 
P: LET V=G 
360 NEXT G 
3 70 NEXT T 

400 INK 7: PRINT AT 2,4; "VOCE 
DtSSE ** 

"405 FOB M— 3 TO 16: SOUND .01, 
M: NEXT « 

410 LET K$-INKEYS: IF KS'"" 
THEN GOTO 410 

412 IF KS<'1'' OB KS>"3" THEN 
GOTO 410 

415 LET U-yAL KS 
420 PRINT AT 3,4;ASCU);AT 2.21 
; INK 5:"EU DISSE ";AT 3, 21 f AS 
{V> 

430 POKE 23681, U-1: LET O-USR 
32000: POKE 23681 , 127-l-U : LET 
"USR 32000 

440 LET S=S+P(U.V): PRINT AT 
16,8i"SEU SCORE E " : S ; " " 
450 INVERSE 1: IF U-U THEN 
PRINT AT 18,10;" UM EMPATE " : 
GOTO 4 90 

460 IF (U-3 AND U-Z) OH (U-2 
AND V=l} OR [U=l AND V=3 3 THEN 

PBINT AT 18.12;" VOCE VENCEU 
": GOTO 490 



470 PRINT AT 18,11;" EU yENCI" 
490 INVERSE 0- FOR D=l TO 2: 
PAUSE 0: NEXT D: FOR N=2 TO IB 
: PRINT PAPER 0; INK 7; AT N,2 

•-: NEXT N: GOTO 200 

500 FOR N=32000 TO 3Z284: HEAD 

A: PRINT N.A: NEXT N 

505 LET N=32069: POKE 23723. N- 

256*INT CN/256) : POKE 23729, 

INT (N/256) 

510 RETURN 

520 DATA 33. 6, 72, 58,129, 92,203 

.127.40.5,203.191,33.22. 72.221 

.42,176,92,17,72,0.254.0,40 

530 DATA 8.254,1.40,2,221.25, 

221.25.221,229,209.6,3,197,2 29 

,6,8.197.1.3.0,235,237.176.235 

.36,1.3,0 

540 DATA 237,66,193,16,23^,225 

,1,32,0,9.193.16.227,201 

550 DATA 0,0,0,0.0,0.0,0.0,0,0 

,0,0,3 0,0.0,97.128.3,129,192,4 

,15,2 25,10.56.112,21.32.48,30. 

192. 16. 11,160.16,7,120,32 

560 DATA 3,181,96,1.234,192,0. 

255.126,0,0.0,0.0.0,0,0,0,0.0, 

0,0,0,0,0,0,0,0.0,0.0,0.0 

570 DATA 0,16, 0,0. 56. 0,0. 124,0 

,0,254,0,1.223.0,3,111.128.7, 

191,192,14,219,224,2 7.109,240. 

53,254,248,106.219.112,245,109 

.224,122 

580 DATA 190.192,61,91.128,30, 

2 39,0,15.182.0,7,92,0,2,232,0. 

1, 240, 0,0, 224 ,0,0,0,0 

590 DATA 0,0.0.0,0,0,0.0,0 

600 DATA 0,0,0.0,0,0,0,0,56.0, 

. 104 , , , 208 , , 1 , 160 , , 3 . 64 , 

,6.128.0.13,0,0,26,0,0,52,0,1. 

232,0.63,48,0 

610 DATA 100,32,0,196,96.0,201 

,192.0.115.96,0.6,32,0.4.32,0. 

6,64,0,3,128,0,0.0,0.0,0.0.0,0 

.0 

Q 

5 CLEAR 1000:PMODE 3.1:C0L0R 4, 
2:PCLS 

6 GOSUB 1000 

7 C-e*ATN[13/3 

10 DIM H(3,2) ,XC2} .0(3,3) .C{2.3 

) ,AC2,3) .P(3,33 rCLS 

20 FOR I-l TO 3:HCI,l)--C0St (I- 

2)*C) :H(I,2)=-SINt (I-2)*C) : NEXT 

30 FOR T=l TO 3: FOR J=l TO 2:A( 

J,T)"0:C(J,Tl=.01:NEXr J.T 

40 PHINT"D1GITE O FATOR DE ESQU 

ECIMENTO. INTEHUALO PERMITIDO 

A 1." 
50 PRINT"0=SEM MEMORIA ALEM DE 
1 JOGADA" : PRINT "1=ESTRATEGIA FI 
XA" 

60 PRINT"UALOR SUGERIDO- . 85' : IN 
PUT W 

70 FOB I-l TO 3:F0a J»l TO 3 : FO 
R J=l TO 3:P(I,J]=SGN(I-J-3*INT 
( (I-J+1.5)/3)) :NEXT J.I 
80 S=0:U2-0:WW=0:U3«0 
100 V=HNDC3) 
110 COLOR 4:PCLS:LINE(8.20)-(Z4 



7.1713 ,PSET.B 

120 DRAW"BM34,10S4C4" :FOR K=l T 

3: DRAW NS tK3 +E$+AS (K3 +"BR4" : N 

EXT 

140 GOTO 400 

200 FOR T-1 TO 3:1-U 

210 IF(U2«0 AND T=Z) OH CU3=0 A 

ND T=3) THEN 280 

220 IF T-2 THEN I = - (U=U23 -2* (U = 

W) -3« ( (UOU2) AND (UOUU) ) 

230 IF T-3 THEN I-- (U-UJ) -2* (U= 

V3)-3*{ tU<>U3)AND(U<>V3) ) 

240 FOR J=l TO 2iA(J,T)-ACJ.T)* 

W+H(I. J) :C(J.T)-C(J,T)*W+3*H(I, 

J)*HCI. JJ+.Ol 

250 X(J)-A(J,T)/C(J.T) :NEXT 

260 FOR I-l TO 3:QCI,T)-l/3:FOR 

K-1 TO 2:Q!I,T3=Q(I,T3-t-X(K)*HC 
l.K) :NEXT K,I 

280 NEXT:U2-U:W-V:IF U-U THEN 
W-U+l-3*INT(U/3) 
290 IF UOV THEN U3-U:V3-V:IF P 
CU3.V3X0 THEN WW-U3 : U3-V3 : V3-W 
U 
300 X--1E30:FOH T-1 TO 3:IF(T-2 

AND U2-0) OH {T-3 AND U3-0) TH 
EN 37Q 

310 ON T GOTO 350,320,340 
320 WW-6-U2-UU:Ql«Q(l,T) :Q2»Q(2 
,T) :Q3-QC3,T) : Q (U2 , T) -Ql : C (W , T 
] -02:0 (WW. T) -03 

330 GOTO 350 

340 MW-6-U3-V3;Ql-Q(l,T) :02-Q{2 
.T) :Q3-Q(3,T) : Q (U3 , T) -Ql :Q (V3 ,T 
)-Q2:Q{WW,T)-Q3 

350 FOR G-1 TO 3:P-0:FOR I-l TO 
3rP-P+P(G,I)*Q(I.T) ;NEXT:IF P> 
X THEN X-P:V-G 
360 NEXT G 
370 NEXT T 

400 SCREEN 1 , : DRAW"BH12. 30"+YS 
+SS 

410 AS-INKEYSrlF ASC"!" OR AS>" 
3" THEN 410 

420 U-VAL CAS) : DRAW ASCU)+"BM142 
.30"+IS+S$+AS(V) 

430 X-44:Y-90;ON U GOSUB 600,61 
0.620 

435 X-170:ON V GOSUB 700.710,72 


440 LINE(80, 175)^(240, 190} ,PRES 
ET,BF:S-S+P(U,V) : DRAW"BM80 , 180B 
D4R5U2L4U2R4BH8L4D4R4BR4U4R4D4N 
L4BR4U4H4D2L2DFBR9L4U2NR4U2R4BR 
8BU2S8" : GOSUB 800:DaAW"S4" 
450 IF U=U THEN DRAWBMIOO , 160C 
3"+DS:G0TO 490 

460 IF(U=3 AND U=2) OH (U2 AND 
U=i) OR CU=1 AND y-3) THEN DRAW 
"BM30,160C3"+YS+WS:GOTO 490 
470 DRAM''BM160,160C1- + IS+WS 
490 FOR K=l TO 1000 : NEXT; LINE {1 
0,Z2}-{Z45,169} . PRESET, BF 
500 GOTO 200 

600 PUTfX.Y)- (X+40,Y+383 .PA.PSE 
T:HETUHN 

610 PUTCX,V}-(X+40.1f*38) .SC.PSE 
T : RETURN 

620 PUTCX,Y)-(X+40,Y+38} .ST.PSE 
T; RETURN 

700 PUTCX.Y>-(X+40,Y+38) .PA.AND 
: RETURN 



710 PUT(X,Y)-(X+40,Y+38) .SCAND 

: RETURN 

720 PUTCX,Y)-<X+40,¥+38) , ST, AND 

; RETURN 

800 FOR K-1 TO LEN(STRS(S)) 

810 BS=MIDS{STRS(S) ,K,1) ;IF BS= 

'-" THEN DRAW"BF2R4BE2":GOTO 83 



820 IF BS<"0'' OH BS>"9" THEN 83 



825 DRAW N$(VAL(B3]) 

830 NEXT: RETURN 

1000 FOR I-O TO 9rREAD NS(I):NE 

XT 

1010 DATA NR2D4R2U4BR2,BDEND4BR 

2 , R2D2t.2D2R2BU4BR2 , NR2BD2NR2GD2 
R2U4BR2 , D2R2D2U4BR2 , NR2D2R2D2L2 
BE4.D4R2U2L2BE2BR2 ,R2ND4BR2 .NR2 
D4R2U2NL2U2BR2 , NR2D2R2D2U4BR2 
1015 DIM PAC39) ,SC{39) ,STC39) 
1020 DRAW"BMO,22C3M22,0«40,18M2 
0,38L4M0.22'':PAINT{20.20) 

3 030 DRAU"BM32,20C2S8H4BH2HBG2F 
4BFF3BI.4H2BHH2BL3F2BF2F3BD3H2BH 
3H2 " 

1040 GET (0,0) -(40, 38) , PA, G 

1050 DRAW"BM5 0,30C3URURUR534UNR 

6US8R3URNEeUE7R2GZDG6LD2LD2FDGL 

GL2ULUEEfiE2L2DBM-3 , -ZD2G2L2U2" 

1060 GET(50,0)-(90,38) ,SC,G 

1070 DRAW"BM128,6L3GLGL2G3DF5HB 

E2UEU3H3LU'' : PAINT {124 , 16) 

1O80 DRAW"B«128,ec2L3GLGNL2DFRU 

ERER2U~iPAINTC122,10) :DRAW"BM13 

4 , 14L3GLNG3D2RNF2R4NG2EUH" : PAIN 

T a 30, 18) 

1090 GET{100,0)-(140.3e) ,ST,G 

1100 ES="BR2BDNa3BD2H3BE3BH" 

1102 AS (1) ="NH2D4U2R4U2BF4U2NR2 

U2H4D4BR4U2NU2RSU2NL2BB.8L4D2NR2 

D2R4BR3U4H4D2LDFRBE4'' 

1104 AS ( 2 ) = " BD4R4U2L 3U2R4BR8L4D 

4R4BR4U4BR8L4D2R3D2L3BR7R4U2L3U 

2R4BR3ND4R5D4NL2BR3U4H4D2LDFBH5 

R3U2L3U2R4BR2" 

1110 A3(3)-''BD4R4U2L3U2R4BR3R3N 

D4R2BR3NR5D4R5U4BH4ND4F3RFU4BF4 

NR4U2NR2U2R5BR3" 

1120 IS="ND4BR6" :Y5="C4F2HD2HE2 

BR3D4R4U4LBR6D4R3U4BR6 " 

1130 W5-''D4RER£RFRFU4BR4ND4BR5N 

D4F2RF2U4" 

1140 SS="BD4H4U2L3U2R4BR3ND4H4D 

2NLD2BR4U4BH4D4H3EU2HBR9" 

1150 DS-"ND4H4D2NLD2BH7U4H2FD2G 

BR5U4R4D2LDFBR4U4R4D2LF2BR3NU4E 

REaFRFU4" 

120 RETURN 

Nas versoes para o MSX, o Apple e 
o TK-2000 nio ha apresentagao de 
graficos. 



fffi 



6 GOSUB 1000 

7 C-8*ATN(1)/3:NU-0:NU-0 

10 DIM HC3,2) ,XC2) ,Q(3,3) .C(2,3 

) ,A(2,3) ,PC3,3) 

20 FOR I-l TO 3 

25 H(I,1)--C0SCCI-2}*C) :H(I.2) 

--SIN{(I-2)'«C) 

27 NEXT I 



30 FOR T-1 TO 3; FOR J-1 TO 2;A( 

J.T)-0;CCJ,T)=0,01:NEXT J:NEXT 

T 

35 LOCATE 4 

40 PRINT "FATOR DE ESQUECIMENTO 

A SER USADO" 
45 PRINT .'PRINT "VALOR ENTHE E 

1 :" 
50 PRINT "0 - MEMOHIA DE 1 JOGO 

APENAS": PRINT "1 - ESTRATEGIA 
INVARIAUEL" 
60 PRINT "VALOR SUGERIDO •= 0.85 

M 

65 PRINT: PRINT "UALOR ";: INPUT 
W 

67 FOR 1=4 TO 11: LOCATE O.I 

68 PRINT " 

m 

69 NEXT I 

70 FOR 1=1 TO 3: FOR J=l TO 3 
72 P(I,J)-1 

75 IF I-J-3*INTC<I-J+1.5)/3)<0 

THEN PCI,J)--1 

77 NEXT J:NEXT I 

80 S=0:UZ=Q :WW=0:U3=0 

100 V=INT(3*HND{1) )+l 

120 LOCATE 3, 4: PRINT "VOCE" 

130 LOCATE 20, 4: PRINT "EU» 

140 GOTO 400 

200 FOR T=l TO 3:I-U 

210 IF (U2 = AND T = 2) OR tUS^^O 

AND T«3) THEN 270 

220 IF T-2 THEN 1=- (U-U2) -2* CU- 

VV)-3*(CU<>U2) AND (UOUU)) 

230 IF T-3 THEN I— (U-U3) ~2* (U- 

V3)-3*((U<>U3) AND tUOUj) ) 

240 FOR J-l TO 2: LET ACJ.T)-Ato 

.T) *W+H{I ,J) 

245 C(J.T)-CtJ.T)*W+3*H(l,J)* 

H(I,J)+0.01 

250 LET X(J)-A(J,T)/C(J.T) :NEXT 

J 
260 FOR 1=1 TO 3:Q[I.T)=1/3;F0R 

K=l TO 2 
265 Q(I,T)=Q(I.T)+X(K)*H(I.K3 : 
NEXT K:NEXT 1 
27 NEXT T 
280 U2-U:W*U 

285 IF U=U THEN UV=U+1-3*INT (U/ 
3) 

290 IF UOV THEN U3=U:V3=U:IF P 
CU3,U3)<0 THEN WW=U3 :U3=V3 :V3=U 
U 

300 X=-9999999:F0H T=l TO 3 
305 IF tT=2 AND U2=0) OR (T=3 A 
ND U3=0) THEN 370 
310 ON T GOTO 350,320,340 
320 WU=5-U2-UV;Q1=0(1.T) :QZ= 
Q(2.T) :Q3=Q(3,T) 

325 Q(U2.T3=Qa:QCWiT)=Q2'(J(WW 
.TJ-Q3 

330 GOTO 350 

340 WU=6-U3-U3:Q1=QC1,T) ;Q2=Qt 
2,T) :Q3=fit3.T) 

345 0CU3,T)-Ql:QtU3.T)«Q2:QtWW 
,T)=Q3 
350 FOR G=l TO 3:P=D:F0H 1=1 TO 

3 
355 LET P = P+PtG,I)*(J{I.T) :NEXT 
1 

357 IF P>X THEN X-P;V-G 
360 NEXT G 
370 NEXT T 



400 LOCATE 0,21: PRINT "JOGUE: 1 

=PAPEL 2=TES0URA 3=PEDRA " : 

410 A3-INKElfS:IF AS<''i" OH AS>" 

2- THEN 410 

420 U=UALCA3) 

425 LOCATE 3, 10 1 PRINT A3 (U) 

4:10 LOCATE 20. 10 r PRINT A$(V) 

445 S=3+PCU,V) 

447 LOCATE 1 2. 16 r PRINT " 

'•LOCATE 12,16 
450 IF U=V THEN PRINT "EMPATE": 
GOTO 490 

460 IF (U=3 AND U=2} OR tU=2 AN 
D U=13 Oa [U-1 AND U=3) TREN PR 
INT "VOCE GANHOU ! - : NU=NU+1 :GOT 
490 

470 PRINT "GANHEI l'':NV='NV+l 
490 LOCATE 3, 18: PRINT NU: LOCATE 

20,18:PaiNT NV 
500 GOTO 200 

1000 LET AStD^'PAPEL ''rAS(2) = 
"TESOUBA" ;A$(3)="PEDRA " 
1010 CLS 
1020 PRINT "PAPEL - PED 

HA-TESOURA" 
1030 PRINT - = = = = = ===. = = - = === = = = = 



1040 LOCATE O.ZO 
1050 PRIM "=== = = 

1200 RETURN 



GBE] 



6 COSUB 1000 

7 LET C=8*ATN{l)/'3:NU=O:NU=0 

10 DIM H(3.ZJ .J{(2) ,Q{3.3) .CCZ,3 

} .AC2,3} ,P(3.3) 
30 FOR 1=1 TO 3 
25 LET H(I.1]=-C0S{CI-2}*C) :H(I 

.2)=-giN[(I-2)*C) 
27 NEXT I 
30 FOR T=l TO 3; FOR J=l TO 2:Af 

J,T)=0:C(J.T)=0.01:NEXT J: 

NEXT T 
35 UTAB 4:HTAB 1 
40 PRINT "FATOn DE E9QUECIMEMT0 

A SER USADO" 
45 PRINT -'PRINT "VALOR ENTRE E 

1 :" 
50 PRINT "0 = MEMORIA DE 1 JOGO 

APENAS" SPRINT "Is ESTRATEGI 

A INUAHIAVEL" 
60 PRINT "VALOR SUGERIDO = 0.85 

m 

65 PRINT: PRINT "VALOR "i^lNPUT 
W 

67 FOB 1=4 TO 11 rVTAB I : HTAB 1 

68 PRINT ■ 

fig NEXT I 

70 FOR 1=1 TO 3: FOR J=l TO 3 

72 LET PtI,J)=l 

75 IF I-J-3*1NTC tI-J+l-5)/3K0 

THEN P(I,J)=-1 
7 7 NEXT J; NEXT I 
80 LET S=0:UZ=0:WW=0:U3=0 
100 LET V=INT(3*HNDC1)}+1 
120 VTAB 4;HTAB 3:PHINT "VOCE" 
130 VTAB 4: HTAB 20: PRINT "EU" 
140 GOTO 400 
200 FOR T^l TO 3:1=0 
210 IF (U2=0 AND T=2) OR (U3=0 



AND T=3) THEN 270 
220 IF T=2 THEN I=- (U=U2) -2* CU= 

UV)-3*((U<>U2) AND (UOVU) ) 
230 IF T=3 THEN I=- (U=U3) -2* {U= 

V3)-3*{[UOU3) AND (UOV3) ) 
240 FOR J=l TO 2: LET AtJ.T)»A(J 

.T)*W+H(i, J) 
245 LET C(J,T}=CCJ.T)*W+3«H{I,J 

J«H(I. J)+0.01 
250 LET X(J)=A(J.T)/CtJ,T3 :NEXT 

J 
26C FOR 1=1 TO 3;Q(I.T)-l/3:FOR 

K=l TO 2 
265 LET OtI,T)=Q(I.T3+X(K)*H{I, 

K) :NEXT K:NEXT I 
270 NEXT T 
280 LET U2 = U:W"V 
285 IF U-y THEN UU=U+1-3*INT (U/ 

3) 
290 IF UOV THEN U3=U:V3=V:IF P 

(U3,V3)<0 THEN WW-U3 : U3 - 

V3:V3=WW 
300 LET X=-9999999:F0R T'l TO 3 
305 IF {T-2 AND U2-0> OH [T^3 A 

ND U3-0) THEN 370 
310 ON T GOTO 350,320,340 
320 LET WW=6-U2-Vy:Ql-QCl,T) ;Q2 

-Q£2,T3 :Q3=Qt3,T) 
325 LET QtU2.T)-Ql:Q{W,T)=C2:Q 

CWW.T)-Q3 
330 GOTO 350 
340 LET WW-6-U3-V3:Ql=Q(l,T] ;Q2 

-Qt2.T) :Q3"Q(3,T) 
345 LET QCU3,T)=Ql:QCy3,T)=Q2:Q 

CMW.T)-Q3 
350 FOR G-1 TO 3:P-0:FOR 1=1 TO 

3 
355 LET P=P+P{G.I)*Q[I,T) iNEXT 

I 
357 IF P>X THEN X=Pry=G 
360 NEXT G 
370 NEXT T 
400 UTAB 21; HTAB 1 : PRINT" JOGUE : 

1=PAPEL 2=TES0URA S^PEDRA"; 
410 GET AS: IF ASC'l" OR AS>"3" 

THEN 410 
420 LET U=UAL(AS] 
425 VTAB 10: HTAB 3 : PRINT AS £U) 
430 VTAB 10: HTAB 20: PRINT A3 (U) 
445 LET S=S+PCU,V) 
447 UTAB 16: HTAB 12: PRINT " 
"rUTAB 16: HTAB 12 
450 IF U=U THEN PRINT "EMPATE"; 

GOTO 490 
460 IF (U=3 AND V=2) OR (U=2 AN 

D V-1) OR (U=X AND V°3)THEN 

PRINT "VOCE GANHOU ! " : NU=NU 

+1:00T0 490 
4 70 PRINT "CANHEI !":NV=NV+1 
490 VTAB 18: HTAB 3 : PRINT NU 

VTAB 18: HTAB 20: PRINT NU 
500 GOTO 200 
1000 LET AS(1)="PAPEL ■:ASC2)- 

■•TES0URA'';AS(3)="P£DRA " 
1010 HOME 
1020 PRINT "PAPEL - PED 

RA-TESOURA" 
1030 PRINT "=================== 

1040 VTAB 20: HTAB 1 

1050 PRINT "=================== 

1200 RETURN 



SOMA CUMULATIVA 



Soma cumulativa e a t^cnica usada 
para analisar o desempenho do oponen- 
te nrnn periodo de tempo em que se re- 
gjstram mudanfas bruscas de respostas. 

Os graficos empregados pe!o progra- 
ma sao iguais aos do programa anterior 
(apenas nas versoes para o TRS-Color 
e Spectrum. Nas versoes para o MSX, 
Apple e TK-2000, a parte comum entre 
OS dois programas se refere a apresen- 
tafao dos resultados). Assim, as linhas 
de programa correspondentes a se^ao re- 
lativa S^apresentagao dos resultados nao 
mudam, devendo ser incorporadas ao 
novo programa como estao. 

Como no programa anterior, joga- 
dor deve cntrar uma informaijao que re- 
gula a t^tica do computador (urn niime- 
ro entre 1 e 9999). 



Use as linhas 520 a 610 do programa 
anterior e acrescente estas; 

5 CLEAR 31999: GOSUB 500: 
BORDER 0: PAPER 0: IKK 7: 
CLS 

7 DIM A3(3,9): LET A$(11-''PE 
DBA": LET AS (2) -"PAPEL" : LET 
AS C3)-"TES0URA" 
10 DIM B(3): DIM U(3): DIM S( 
3) : DIM H(3,2) : DIM X(3) : DIM 
Q{3) : DIM P(3.3) : DIM MC3) 
15 LET MM=60: DIM A(3.MMJ: 
DIM Z(MM) 

20 FOR I-l TO 3: LET H(I,1)=- 
COS t (t-2)*PI*2/3) : LET H(1.2 
}=-SIN (CI-23*PI*2/3) : NEXT I 
30 LET M(l)=l- LET M(2)-0: 
LET «(3)-0 

40 INPUT "DIGITE HAZAO DE SEM 

ELHANCA PARA CADA JOGADA (1 A 

^999) . 1-NOUA ESTRATEGTA PA 

RA CADA JOGADA. 9999=MESMA 

ESTRATEGIA. ";W 
70 FOR 1=1 TO 3; FOR J=l TO 3 
: LET P<I,J)-SGN (I-J-3*INT I 
(I-J+1.5)/3)) : NEXT J: NEXT I 
: LET S-0 

80 LET NN=0: LET U=l- LET S=0 
: LET UZ=0: LET WW=0 : LET U3=0 
100 LET U=INT tHND*3)+l 
110 PRINT INK 6; PAPER 2;" 1 
=PEDRA, 2=PAPEL, 3=TES0URA " 
120 INK 6: PLOT fl.l67: DftAU 
239.0: DRAW 0,-159: DRAW -239, 
0: DRAW 0,159 
130 GOTO 400 

200 LET Y=-1E30: LET Z=-1E30: 
FOR T=l TO 3: LET I=U: IF T=l 
THEN GOTO 230 

210 IF (U2=0 AND T=23 OH (U3=0 
AND T-3) THEN GOTO 264 
220 IF T=2 THEN LET I=ABS ( (U 
"U2)-2*(U-VV)-3*((U<>U2) AND ( 
UOUU) ) ) 



M nmmimmv. 




230 IF T-3 THEN LET I-ABS ( CU 
=U3)-2*{U-V3)-3*(tU<>U3) AND ( 
U<>V3))> 

240 LET A(T,M(T>)-r 
2S0 FOR J»l TO 3: LET B(J)-0; 
NEXT' J: LET N-0; LET N2"H(1) 
252 FOR M^Md) TO 1 STEP -1: 
LET B{A(T.M))-B{A(T.M))+1: LET 
N=N+1 : LET NZ-N2-1 
256 FOR J-1 TO 3: LET Q(J)-B{J 
)/N; LET X(J)-Q(J)+(Q(J)-0) : 
NEXT J 

258 LET Q-BC1)«LN (X(l))+B(2>* 
LN CX(2))+BC3)*LN (X(3)) : IF 
NN>1 AND N2O0 THEN LET Q-Q+Z 
(N2) 

260 IF Q>Z THEN LET Z-0: LET 
S!l)-Q(l): LET S{2>=Q(2) : LET 
S(3)-Q(3): LET SS-T: LET NN=N2 
262 NEXT M: IF Q>Y THEN LET Y 
-Q; LET TT-T: LET UtD^Qd): 
LET U(1)=Q(2): LET U{3)=Qt3) 
264 NEXT T: LET T-TT: LET Z(M( 
l)>=y: LET 0{1)=U(1): LET Q(2) 
=U{2] ' LET G(3)-U(3) 
270 LET U2=U: LET VV=Ui IF U2= 
VV THEN LET VV"U2+1-3*1NT CU2 
/3) 

272 IF UOU THEN LET U3^U: 
LET V3=V! IF P(U3,V3)<0 THEN 
LET WW-U3: LET U3-V3i LET V3= 
UW 

274 LET MC1)=«(1)+1; LET M(2)= 
M<2)+(U2>0): LET M(3)=Mt3)=(U3 

>0) 

280 IF Q>2-LN (W) THEN GOTO 

300 

282 FOR T=i TO 3: FOR M=NN+1 

TO M(TJ: LET A (T ,M-NNJ =A (T , M} : 

NEXT « 

284 LET M(T)=(NN-M[T) }*(-!*( (M 

tT)>NN) )) : NEXT T 

286 LET T-TT: LET Q{1)-S<1): 

LET Q(2)=S{2): LET Qt3)'S(3) 

290 FOR H=l TO M(l)-1: LET 2 CM 

)--lE30: NEXT M: LET ZCM(1))=-Q 

300 LET X=-1E30 

310 IF T==l THEN GOTO 3b0 

311 IF T=2 THEN GOTO 320 

312 IF T=3 THEN GOTO 340 

320 LET WW-6-U2-W: LET QJ'^QU 

): LET Q2-Q(Z) : LET Q3=Q(3): 

LET Q{U2)»Q1: LET Q{VV)=Q2: 

LET Q{UW)=Q3 

330 GOTO 350 

340 LET UW=6-U3-U3: LET Q1=0{1 

): LET Q2=Q(2]: LET Q3=Q{3): 

LET Q(U3)-Q1: LET Q(V3)=a2: 

LET Q{WW)=Q3 

350 FOR 0*=! TO 3: LET P = : FOB 

1=1 TO 3: LET P=P+P {G . I ) *Q ( I ) : 

NEXT I: IF P>X THEN LET X»P: 

LET U=G 

360 NEXT G 

400 INK 7: PRINT AT 2,4;"UOCE 

DI3SE ' 

405 FOR M--3 TO 16: SOUND .01. 

M: NEXT M 

410 LET KS-INKEYS: IF KS""" 

THEN GOTO 410 

412 IF KS<"1" OB KS>"3'' THEN 

GOTO 410 



415 LET U-VAL KS 
420 PRINT AT 3.4:ASCU):AT 2,21 
; INK 5;-EU DISSE " i AT 3, 21; AS 
(VI 

430 POKE 23681, U-li LET O-USR 
32000: POKE 23681, 127+V: LET 
-USR 32000 

440 LET S=S+P{U.V); PRINT AT 
16,B:"SEU PLACAR E ";S;" " 
450 INVERSE 1: IF U-U THEN 
PRINT AT 18.10:- UM EMPATE ' : 
GOTO 490 

460 IF {U=3 AND V-2) OR CU-2 
AND V-1) OR tU-1 AND V-3} THEN 

PRINT AT 18,10;- VOCE VENCEU 
" : GOTO 490 
470 PRINT AT 18.10;" EU VENCI 

IV 

490 INVERSE 0: FOR D=l TO 2: 
PAUSE 0: NEXT D: FOR N=2 TO 18 

■ PRINT PAPER 0; INK 7; AT N,2 

. <• 

': NEXT N: COTO 200 

500 FOR N=32000 TO 32284: READ 

A; POKE N,A: NEXT N 

505 LET N-32069: POKE 23728, N- 

256*INT (N/256> : POKE 23729, 

INT {N/256) 

510 RETURN 



a 



Apague o programa anterior at^ a li- 
nha 435 e digite: 

5 CLEAR 1000:PMODE 3,1: COLOR 4, 

2:PCLS 

6 GOSUB lOOD 

7 C-8*ATN(l)/3 

10 DIM B<3),UC3) .S{3) ,H(3,2) ,X{ 

3) ,Q(3) .PC3,3) .M(3) 

15 MM-60:DIM A{3 ,MM) . Z <MM) 

20 FOR I-l TO 3;HtI,l)--C0S[(I- 

2)*C) :HCI.2)— SINC(I-2)*C) :NEXT 

30 M(l)-1 

40 CLS:INPUT"DIGITE RAZAO DE SE 

MELHANCA PARA CADA JOGADA (1 A 

9999J , 1-NOVA ESTRATEGIA PARA 

CADA JOGADA . 9999-MESMA ESTR 

ATEGIA. "rW 

70 FOR I-l TO 3:F0E J-1 TO 3:P{ 

l.J)-SGN(I-J-3*INT({I-J+i.5)/3) 

) :NEXT J, I 

80 U-1 

100 V-RND<3J 

110 COLOR 4:PCLS:LINE{8,20)-(24 

7,171) .PSET.B 

120 DRAWBM34.10S4C4" iFOR K-1 T 

3:DRAH NS (K) +ES+AS (K) +"BR4" :N 

EXT 

140 GOTO 400 

200 Y=-1E30:Z--1E30:FOR T-1 TO 

3:I-U:IF T-1 THEN 230 

210 IF(U2-0 AND T-2)ORtU3-0 AND 

T-3) THEN 264 
220 IF T-2 THEN I-- (U-U2) -2* CU- 
VU) -3* t (U<>U2)AND(U<>W) ) 
230 IF T-3 THEN I-- {0-U3) -2* tU- 
V3} -3* ( (UOU3) AND CU<>y33 ) 
240 A(T,M(T))-I 

250 FOR J-1 TO 3:B(J)-0:NEXT:N- 
0:N2-M(1) 



252 FOR M-M(T) TO 1 STEP -1:B(A 
{T.M1)-B(A(T,MJ)+1:N-N+1:N2-N2- 

1 

256 FOR J-1 TO 3 : Q ( J) -B ! J) /N : X ( 

J)-QU)-tQ{J)-0) :NEXT 

258 Q-B{1)*L0G(X(1))+B(2)''L0G(X 

C2))+B{3)*L0G(X(3)) :IF NN>0 THE 

N Q-Q+2<N2) 

260 IF Q>Z THEN Z-Q:S (IJ -Q (1 ) : S 

C2)-Q(2) :SC3)-Q{3) :SS-T;NN-N2 

262 NEXT M;IF Q>Y THEN Y-Q.TT-T 

:Utl)-Q(].} :Ut2)-«[2) :UC3}-Q(3) 

264 NEXT T:T-TT:Z(M(1))-Y:Q(1)- 

U(l) :0(2)-U(2> rCt3}-U{3) 

270 U2-U:VV-V:IF U2>VV THEN W- 

U2+l-3*INT{i;2/3) 

272 IF UOU THEN U3-U:U3-V:IF P 

(U3,y3)<0 THEN WW-U3 :U3-V3 :U3-W 

W 

274 MC1)"M{1)+1:M(2)-M{2>-(U2>0 

) :M(3)-M(3)-(U3>0) 

260 IF Q>2-L0GtW) THEN 300 

282 FOR T-1 TO 3: FOR M-NN+1 TO 

MtT) :A(T,M-NN)-A(T,M) ;NEXT 

284 M(T)-(NN-MT)«(M(T)>NN) :NEXT 

286 T-TT:Q(1)-Stl) :Q<2)-S(2) -Q( 

3)-S(3) 

290 FOR M-1 TO M( 1) -1 : 2 CM) — iE3 

0:NEXT:Z{M(1))-Q 

300 X— 1E30 

310 ON T GOTO 350.320,340 

320 UU=6-U2-VV:Q1=QC1) ;QZ-QC2) : 

Q3-Q(3) :QCU2}-Q1:QCW)»Q2:0(WW) 

-Q3 

330 GOTO 350 

340 UM»6-U3-V3:Ql-0tl) :Q2-Ct2) : 

Q3-ft{3) ;QtU3)-Ql:QfU3)-Q2:QCWW) 

"Q3 

350 FOR G-1 TO 3:P-0:FOR I-l TO 

3:P>p+p(G.I)*Q(I) :NEXT:IF P>X 
THEN X-P:V-G 
360 NEXT 

400 SCREEN 1 , : DRAW-BM12 . 30"+5fS 
+5$ 

410 AS-INKEYS:IF AS<"1" OR AS>" 
3- THEN 410 

420 U-VAL (AS ): DRAW A$(U)+"BM142 
,30"*IS+SS+AS(V) 

430 X-44:Y-90:ON U GOSUB 600,61 
0,620 

435 X-170:ON V GOSUB 700.710.72 




m 



Apague o programa anterior ate a li- 
nha 390 e digite: 

6 GOSUB 1000 

7 C-B*ATN(13/3:NU-0:NV-0 

10 DIM B(3) .U(3) .8(3) .HC3,2) .X( 

3) ,Q(3) .P(3.3} ,M(3) 

15 MM=60:DIM A{ 3,MM) . Z (MM) 

20 FOR I-l TO 3 

25 H(I,1)— COS( (I-2)*C) :a(1.2) 

— SIN{(r-2)«C) 

27 NEXT I 

30 Mll)-1 

35 LOCATE 0,4 

40 PRINT 'FATOH DE VEROSSIMILHA 

NCA" 

45 PRINT: PRINT ■'VALOR ENTRE 1 t: 



9999 : " 

5 PRINT "1 = NOVA ESTBAXeCIA P 

ARA CADA JOGO-; PRINT "9999 - ME 

SMA ESTRATEGIA" 

65 PHINT; PRINT "UALOH ";: INPUT 

V 

67 FOR 1-4 TO 10; LOCATE 0,1 

68 PRINT " 

m 

69 NEXT I 

70 FOR 1=1 TO 3:F0R J=l TO 3 
7Z P(I,J3=1 

75 IF l-J-3*INT{(I-J+l.5)/3)<0 

THEN P(I.J)=-1 

7 7 NEXT J; NEXT I 

80 U=I 

100 U=INTC3*RNDC1J)+1 

120 LOCATE 3, 4: PRINT "VOCE" 

130 LOCATE 20, 4: PRINT "EU" 

140 GOTO 400 

200 Y=-99999:F0R T=l TO 3;I=U 

205 IF T=l THEN 230 

210 IF (U2=0 AND T=2) OR tU3=0 

AND T=3) THEN 264 

220 IF T«'2 THEN I=- CU=U2) -2« (U= 

UV)-3*{(U<>U2) AND (UOW) ) 

230 IF T=3 THEN I=- CU-U33 -2* (U"- 

U3)-3"( (UOU3) AND CUOV3)) 

240 A(T,M(T))=I 

250 FOR J*l TO 3:B(J)=0:NEXT J: 

N=0:N2=M(1) 

252 FOR M=M(T) TO 1 STEP -1 

254 B(A{T.Mn-B{ACT,M))+l:N-N+l 

:N2=M2-1 

256 FOB J-1 TO 3 :Q { J) =B {J) /MrX { 

J)*QtJ)-CQtJ)«0> :NEXT J 

258 A-=B(1J*L0G(X(1) )+B(Z)*LOG{X 
(2>)+BC3)*L0GtX{3)) 

259 IF NN>0 THEN 0=0+2 (N2) 

260 IF Q>Z THEN Z-Q ; S {1 ) =Q (1) : S 
(2)-Q2:S(3)-03:SS-T:NN-N2 

262 NEXT M 

263 IF Q>Y THEN Y=0 : TT=T:U (1} =Q 
(1) :U(2)=Q{2) :U(3)=Q(3) 

264 NEXT T 

265 T=TT;ZC«tl))=y;Qa)=U{l) : 
Q(2)=U(2) :Q[3)=Ut3) 

270 U2=U;W=U:IF U2>W THEN 

UU=U2+l-3*lNT{U2/3) 
272 IF UOV THEN U3=U:U3»V:IF P 
(U3,V3)<0 THEN MU=U3 : U3=V3:V3=W 
U 

274 M(1)=M(1)+1:LET M(25=M(2)-{ 
U2>0) :M(33 =M(3)- CU3>0) 
260 IF Q>Z-L0GtW) THEN 300 
262 FOR T=l TO 3 : FOR M=NN+1 TO 
K(T> 

283 A(T,M-NNJ =A(T,MJ :NEXT M 

284 H{T)=(NN-MTJ* tMtTJ>NNJ : 
NEXT T 

286 T-TT:Qtl)-3{l) :Q(2)-S(2) : 

Q(3)=S{3) 

290 FOR M=l TO Ma)-l:ZtM)=' 

-99999: NEXT M 

295 Z(H(1) )=Q 

300 X=-99999 

310 ON T GOTO 350.320.340 

320 WW»6-U2-W:Q1-Q(1J :Q2-a(2) : 

03=0 (3J 

325 QCU2)=01;Q(UV)«Q2:Q<My)=Q3 

330 GOTO 350 

340 WW=6-U3-V3;Q1=Q(1) :Q2=(J(2) ; 

Q3=Q{3) 



345 0CU3J =01 :Q{V3] =02 :Q<WW)«Q3 

350 FOB G=l TO 3:P=0:FOR 1=1 TO 

3 

355 P-P+P(G.I)«Q{I3 :NEXT I 

357 IF P>X THEN X-P:V=G 

360 NEXT a 



acE] 



Apague o programa anterior ate a li- 
nha 390 e digite: 

6 GOSUB 100 

7 LET C-e*ATN{l)/3:NU-0:NV-0 

10 DIM 8(3) .U(3) ,S(3) ,H(3.2) ,XC 

3) ,Q{3) ,P(3.3) .M(3) 
15 LET MM=60:DIM A ( 3 , MM) . Z (MM) 
20 FOR 1-1 TO 3 
25 LET Htl.lJ— C0SC(I-2)*C) :HCI 

,2)--SIKt (I-2}«C) 
27 NEXT I 
30 LET M(l)-1 
3 5 VTAB 4:HTA& 1 
40 PRINT 'FATOH DE VEBOSSIMILHA 

NCA- 
45 PRINT: PRINT "VALOR ENTRE 1 E 

9999 :• 
50 PRINT "1 - NOVA ESTRATEGIA P 

ARA CADA JOGO'rPRINT '9999 = 
MESMA ESTRATEGIA" 
65 PRINT: PRINT "VALOR ";:INPUT 

W 

67 FOR 1-4 TO 1 : VTAB I : HTAB 1 

68 PRINT ' 

m 

69 NEXT I 

70 FOR 1=1 TO 3:F0ft J=l TO 3 
72 LET P(I.J)=1 

75 IF I-J-3*INT({I-J+1.5)/3)<0 

THEN PCI,J)=-1 
7 7 NEXT J: NEXT I 
80 LET U-1 

100 LET .V-INT(3*RNDtl) )+l 
120 UTAB 4: HTAB 3 : PRINT "VOCE" 
130 UTAB 4: HTAB 20: PRINT "EU" 
140 GOTO 4 00 
200 LET Y=-99999:F0R T=l TO 3:1 

-U 
205 IF T=l THEN 230 
210 IF (U2-0 AND T==2J OR CU3=0 

AND T=3) THEN 264 
220 IF T=2 THEN I=- (U=U2) -2* (U» 
, VU)-3*t (UOU2) AND (UOUU) ) 
230 IF T-3 THEN I-- {U-U3) -2* {U- 

V3}-3»((U<>U3) AND (UOU3)) 
240 LET A(T.«CT3)-I 
250 FOR J-1 TO 3:BtJ>-0:NEXT ,1: 

M=0:N2-MC1) 
252 FOR M-M(T) TO 1 STEP -1 
254 LET B{A{T.M))-B(A(T,M)}+1:N 

=N+1:N2=N2-1 
256 FOR J=l TO 3 ;Q t J) =B { J3 /N:K{ 

J)=Q(J) " CQ(J)=03 :NEXT J 

258 LET A=B(l)«L0GCXtl))+Bt2)*L 
OG ( X ( 2 ) ) +B { 3 ) * LOG ( X ( 3 ) ) 

259 IF NN>0 THEN Q=Q+Z[N2) 

260 IF Q>Z THEN 2=0 : S (1) =0(1 ) : 3 
( 2 ) =02 ; 3 1 3 ) =Q3 : SS=T : NN=N2 

262 NEXT M 

263 IF Q>y THEN lf=Q : TT=T :U (1} =Q 

CI) :UC2)=0C2) :Ut3)=0(3) 

264 NEXT T 




COMO ENGANAR O COMPUTADOR 

Se voc^ n§o quiser ser derrotado pe- 
lo computador, precisarS langar mao de 
uma estrat^gia que neutralize ao mS- 
xtmo o mdtodo de anSlise utillzado no 
programa. A methor alternativa, nesse 
caso, & empregar urn processo absotu- 
tamente aleatdrio em suas jogadas. Pa- 
ra isso, rode um pequeno programa de 
sorteio de tr§s numeros no seu micro. 
e imprima (ou entSo copie k mio) uma 
longa sequSncia de Jogadas. Seguindo- 
a k risca, o computador nao terS nenhu- 
ma chance de prever suas jogadas. Em 
compensagSo, voc6 tamb^m nao con- 
seguir^ prever as jogadas do com- 
putador! 

Outra t^cnica para engariar o com- 
putadof consiste em mudar continua- 
mente de estrat^gia. Os resultados, 
aqui, dependerao do programa que vo- 
cS estiver usando. Veja como o com- 
putador "enjooquece"... 



265 LET T=TT:ZtM(l) )=¥ -QCD-Ud 

) :0(2)=U(2) :QC3J=U(3) 
270 LET U2=U:UV=V:IF U2>VV THEN 

VU=U2+1-3*INT (U2/3) 
272 IF UOU THEN U3=U;V3=y:IF P 

(U3,V3)<0 THEN WW=U3:U3=V3: 

V3=WW 
274 LET M(l)=M(l)-t-l:LET Mt2}=M( 

2)-{UZ>0) :MC3)=M(33-tU3>0) 
280 IF 0>Z-LOG(WJ THEN 300 
2S2 FOB T-1 TO 3 : FOR M=NN+1 TO 

M(T) 
283 LET A(T.M-NN)=ACT,M) jNEXT M 
ZB4 LET M(T}=[NM-MT)*(MtT)>NN) : 

NEXT T 
286 LET T=TT:0(1) =SC1] :Q(2)=SC2 

) :QC3J=S(3) 
290 FOR M=l TO M{1)-1:LET 2 (M) = 

-99999: NEXT M 
295 LET Z{M(1)J=Q 
300 LET X=-99999 
310 ON T GOTO 350,320,340 
320 LET WW=6-U2-VU:01=QC1) :Q2=Q 

C2) :Q3=0(3) 
325 LET Q(UZ)=01:Q<UV)''Q2!QtWW) 

=03 
330 GOTO 350 
340 LET WW=6-U3-V3:01-0C1> :Q2-Q 

C2) ;Q3=Q{3) 
345 LET 0(U3)=Q1:0(V3) =Q2:Q{WW) 

=Q3 
350 FOR G=l TO 3:P=0:F0H 1=1 TO 

3 
355 LET P-P+P(G,I)*Q{I) :NEXT I 
357 IF P>X THEN X=P:V=G 
360 NEXT G 
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ATIM ATIC A DA 
ULAIRBOAOECl) 



Use seu micro na exploracao das formas 
mais fascinantes da geometria de 
dimensoes fracionadas, urn instrumento 
da matemcitica que ajuda a explicar as 
irregularidades observadas na natureza. 



Qual i comprimento de um peda- 
CO de corda? A resposta e muito f^cil se 
a corda estiver esticada, pois bastard 
medi-la com uma fita metrica. Caso 
contr^rio, a tarefa sera um poucp mais 
trabalhosa, pois teremos que medir um 
objeto irregular. 

^ evidence que, para obter as medi- 
das de um objeto irregular, procurare- 
mos estende-lo, de modo a simplificar 
o trabalho. Por^m, nem todas as coisas 
sac suficientemente maleaveis para se 
fazer isso. Como agir entao? 

Tomemos como exempio uma encos- 
ta rochosa com 5 km de extensao. Essa 
medida equivale ao percurso de uma gai- 
vota Que voa de uma ponta a outra ou 
a distancia que voce realmence andaria 
seguindo a linha do mar? Ha uma dife- 
ren^ consideravel entre os dois trajetos, 



Sendo que a rota que acompanha todas 
as irregularidades e bem maior que a do 
voo retifineo do passaro, 

Mas qual e essa difereni^a? Suponha- 
mos que temos uma trena bem flextvel, 
capaz de se ajustar a todos os porme- 
nores do terreno. Inicialmente, vamos 
nos ater aos grandes acidentes, como a 
foz de um rio ou uma ba(a. Mas, em 
busca de maior rigor, passaremos a con- 
siderar cada rocha que se projeta ao 
mar, lornando a costa irregular, e, de- 
pois, cada pedra a beira d'agua. Por 
fim, levaremos em conta ate os graos de 
areia: se voce os observar em detalhe, 
vera que tambem sao irregulares e me- 
recem uma boa inspe^ao. 

Isso parece um exercicio absurdo — 
afinal, ninguem precisa de uma medida 
desse tipo com tamanha precisao. Mas, 



por meio do exempio dado, pudemos 
constatar algo imporiante: a exatidao da 
medida de uma superficie irregular de- 
pende do tamanho do instrumento de 
medida de que dispomos. 

A ciencia tradicional trabatha corn 
modelos de curvas e superficies lisas. A 
medida que as olhamos mais de perto, 
mais elas adquirem a forma plana — do 
mesmo modo que a superficie da terra 
e aproximadamente esferica e nos a per- 
cebemos como sendo chata. 

Porem, como ficou claro no exempio 
da costa rochosa, alguns objeios nao se 
most ram pianos nem quando examina- 
dos dc muito perto. E existem muitos 
outros exemplos na natureza de confi- 
guragoes que possuem detalhes diferen- 
tes em cada dimensao de sua estrulura. 
Porem, apenas recentemente os cienlis- 






tas e matematicos tomaram consciencia 
da importancJa do estudo desses obje- 
tos e criaram modelos para suas estru- 
turas — uma serie de figuras geometri- 
cas denominadas figures de dimensoes 
fracionadaSy ou fractals. 

Um dos primeiros pesquisadores a 
estud^-las foi o norte-americano Benoit 
Mandelbrot que reconheceu nessas figu- 
ras um fecundo campo de trabalho, 
muito apropriado a concepcao de mo- 
delos para objetos naturais irregulares. 



MEDINDO UM OBJETO 



Se voce tomar dois peda?os de corda 
do mesmo tamanho e uni-los por uma 
das pontas, podera dizer que obieve 




FKOGftAmACAOmSK 



¥ 



uraa cbpia do pedapo original com o do- 
bro do tamanho. No caso de uma foiha 
de papel, porem, serao necessdrias ou- 
tras tres folhas para se obter uma com 
o formato da original mas com o dobro 
da extensao; com uma barra de rapadu- 
ra, voce ira precisar de mais seta cubos. 

Os numeros 2, 4 e 8 sao parte de uma 
sequencia formada per meio da multi- 
plicacao do 2 por ele mesmo diversas ve- 
zes — 2, 2x2 e 2x2x2, ou 2T1. 2T2 e 2T3. 
A potencia a qual esta elevado o 2 equi- 
vale a dimensao do objeto. 

Como vimos, para alcangar o dobro 
de seu tamanho, um objeto unidimen- 
sional (a corda) tern que ser muUiplica- 
do por dois; um objeto bidimensional 
(a folha) deve ser multiplicado por qua- 
tro e assim por diante. Suponhamos 
agora que, para duplicar o tamanho de 
certo objeto, sejam necessarios tres 
exemplares identicos. Como esse niime- 
ro esta entre dois (equivalente a uma di- 
mensao) e quatro (correspondertte a 
duas dimensoes), deduzimos que a di- 
mensao do objeto estd entre I e 2. 

A primeira vista, tal situagao parece 
improvivel — embora correta, em ter- 
mos logicos, Mas o estudo das dimen- 
soes fracionadas pode mesmo nos tevar 
a resultados surpreendentes. 

O matemdtico alemao Von Koch foi 
um dos primeiros estudiosos a desenhar 
um diagrama representando esse tipo de 
ocorrencia; trata-se da chamada curva 
JIoco de neve (muito semelhante a um 
floco de neve visto ao microscdpio). Ca- 
da um dos lados dessa curva e formado 
por quatro c6pias dela mesma, com um 
tergo do seu tamanho, A dimensao, nes- 
se caso, e um pouco acima de 1 ,26. Va- 
rias formas da natureza, cotno a prdpria 
costa rochosa, podem ser vistas como 
uma figura dessas. 

Como todos OS modelos matemati- 
cos, a curva de dimensao fracionada — 
de definigao muito precisa — nao € ca- 
paz de descrever com perfei?ao a gran- 
de diversidade de objetos naturais, 
limitando-se a uma aproximacao. £, po- 
rem, muito litil na explicaijao de diferen- 
tes estruturas — de veias do corpo hu- 
mano a montanhas, rios ou arvores. 



AUTO-SEMELHANCA 



Voliemos um pouco ao exemplo da 
corda, do papel e da rapadura. Cada um 
desses objetos poderia ser formado por 
varias copias menores identicas. Estaria- 
mos entao diante de um caso de auto- 
semelhanga, onde cada parte do objeto 
e uma copia menor do original. 

As figuras criadas por Von Koch 
constituem uma aplica9ao muito rigida 




desse principio, o que explica a extrema 
regularidade de sua forma. Os exempla- 
res naturais nao apresentam necessaria- 
mente auto-semelhanga — i facil cons- 
tatar que um pedago da casca de uma 
drvore, por exemplo, nao e uma peque- 
na copia da casca inteira. Entretanto, ele 
poderia estar em alguma outra parte da 
casca, pois todos os pedagos se parecem 
muito. Esse fenomeno, denominado 
autO'Semelhanga estadstica, e muito co- 
mum na natureza. 



DIMENSOES FRACfONADAS E GRAFICOS 



Como tantos modelos matemdticos, 
esse tipo de curva pode ser programado 
em seu micro para simular a realidade, 
evidenciando alguraas de suas caracte- 
risticas. No estudo dos fractais, especi- 
ficamente, a computafSo grdfica tem si- 
do amplamente utilizada, oferecendo a 
solucao ideal para o problema da gera- 



gao de figuras irregulares, tais como 
montanhas, mares e uma serie de outros 
elementos da natureza. 

A recursao constitui um excelente 
meio para a aplica?ao do principio da 
auto-semelhanca que envolve a constru- 
cao de uma figura atraves de figuras 
identicas menores. No caso, uma sub- 
rotina principal se encarregara de dese- 
nhar OS varios elementos identicos em 
diferentes tamanhos. 

Se voce quiser obter uraa curva seme- 
lhante k curva floco de neve bastara es- 
colher uma figura bem simples e repeti- 
la varias vezes, em diversas escalas, adi- 
cionando mais e mais detalhes a cada ni- 
vei de tamanho. Experimenie, por e.xem- 
plo, tomar uma reta e aplicar a regra que 
prescreve: "toda IJnha reta deve ser 
substituida por um par de retas em an- 
gulo reto". 

Se voce tentar fazer isso em uma fo- 
lha de papel, vera que a cada passo mais 
detalhes sao introduzidos no desenho. 



W8 PftOORAMACAO BASIC 
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O programa que apresentamos a seguir 
faz uma demonstrafao desse processo, 
Como todos OS graficos eiaborados con- 
forme o raodelo de dimensao fraciona- 
da, nosso desenho poderia se estender 
jnfinitamente, Porem, como nao temos 
uma capacidade grdfica muito grande, 
OS detalhes nos passariam despercehi- 
dos, da mesma maneira que as irregu- 
Jaridades de urn grao de areia, Portan- 
to, o programa Era parar assim que al- 
can?ar urn certo m'vel de recursao. 



10 BORDER Or BRIGHT 1: PAPER 

0: I^fK 7: CLS 

20 LET jnn = 2 

30 LET c=PI/lSO 

40 LET 1=120: LET x=70: LET y 

=50: LEtT an = PT/Z 

45 PLOT INVERSE 1; OVER l;x, 

y 

50 GOSUB 1000 

80 STOP 



1000 LET 1 = 1/1 .414 

1010 TF Ktnn THEN LET 1 = 1*1.41 

4: LET x-^x+d^SIfJ Un)): LET y = 

y-[l*C(>S (an)): DRAW x-PEEK 236 

77,y-PEEK 236/8: RFTUPN 

1070 LET dn = dn+PI/4: flOSlIB 1000 

10:)n LET rtn = ,in-Pl/i: : GOSUB 1000 

1040 LET ^n=dji+PI/4: LET 1-1*1. 

414: HETDBN 

D 

10 PMODE 4,1 :PCLS: SCREEN 1.1 

20 MN=2 

30 C=ATN(1)/45;PI-4*ATN(1) 

40 t. = 120:X = 70:y=140:AN=PI/2 

45 LINE-(X,Y) .PRESET 

50 GOSUB 1000 

60 GOTO 60 

1000 L = L/1 .414 

1010 IF L<MN THEN L = L* 1 . 414 : X-X 

+ (L*SIN (AN) ) : Y = lf+ (L*COS{AN) ) : LI 

NE- [X, Y) ,PSET:HETURN 

1020 AN-AN+P1/4:G0SUB 1000 

1030 AN=AN-PI/2:G0SUB 1000 

1040 AN=AN4-PI/4:L = L*414:EETURN 



1020 AM = AN + PI / 4: GOSUB 10 

00 

1030 AN = AN - PI / 2; GOSUB 10 

OO 

104 AN = AN+ PI / 4:L = L * 1 

.414: RETURN 



m 



B] 



4 * 



] HGR2 

20 MN = 2 

30 C = ATN tl) / 45:Pr 

ATM (1) 

40 L = 120:X = 70:Y = 140:AN = 

PI / 2 

HPLOT X,Y TO X.Y 

GOSUB 10 00 

GOTO 60 
L = L / 1 .414 
IF L < MN THEN L = L * I. 



45 

50 

60 

1000 

1010 



414:X -! X + (L « SIN (AN)):Y - 
y + (L * COS (AN)): HCOLOB- 3 
: HPLOT TO X.Y: BETUHN 



10 SCREEN 2 

20 MN=Z 

30 C=ATN(l)/45:PI=4*ATN(l) 

40 L=lZO:X=70rY=140 :AN=PI/2 

45 LINE- CX.Y) ,4 

50 GOSUB 1000 

60 GOTO 60 

1000 L=L/1.414 

1010 IF L<MN THEN L=L*1 . 41 4 : X=X 

+(L*SIN(AN) ) :Y=Y+(L*C03 (AN) ) : LI 

NE -(X.Y) .nrPETUBN 

1020 AN-AN+Pl/4: GOSUB 1000 

1030 AN=AN-PX/2:G0SUB 1000 

1040 AN=AN+PI/4:L=L*1.4J4'HETUH 

N 

O programa desenhara na tela uma 
curva em forma de C. Inicialmente, ele 
trapa uma reta, que logo e substituida 
por um par de retas em anguio reto. A 
sub-rotina entre as linhas 1000 e 1040, 
que usa SIN e COS para construir os an- 
gulos necessarios, h chamada na linha 
50. Em um processo recursive, e!a cha- 
ma a si mesma repetidamente, para 
substituir as linhas retas por pares de re- 
tas perpendiculares, 

A variavel da linha 20 cont^m o com- 
primenio da linha mais curta — a recur- 
sao sera encerrada quando aicanijar es- 
se valor. Tente muda-lo e observe o efei- 
to resuitante: vaiores menores aumen- 



MODELOS EXPERIMENTAIS 



A principal diferenfa entre as li- 
guras de dimensao fracionada gera- 
das no computador e as formas da 
natureza esia na irregularidade e de- 
sordem destas ultimas. 

No pr6ximo artigo sobre fractals, 
veremos como acrescentar elementos 
aleat6rios ao processo de consirufao 
das figuras, aproximando-as mais 
dos modelos naturals. Um dos pro- 
gramas, um gerador de figuras, per- 
mite que se introduza a semente ge- 
radora do desenho — ou seja, uma 
infinidade de formas podera ser cria- 
da simplesmente variando-se a infor- 
macao inicial, Assim, a cada nova 
execufao do programa, voce obterS 
uma curva diferente. Uma das mui- 
tas possibilidades e mostrada na ilus- 
tragao a direita. 
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tain o numero de niveis de recursao e, 
em conseqiiencia, o tempo de execu<;ao. 
Mas, se introduzirmos valores maiores, 
o programa seri acelerado e poderemos 
visualizar melhor o processo de elabo- 
ra^ao do grafico. 

Se voce acompanhar o desenvolvi' 
mento da figura na tela com atencao, ve- 
rificara que cada parte da curva se pa- 
rece com a propria curva (principio da 
auto-semelhati9a). Apesar disso, nao e 
ficil antever, logo no inicio, a forma 
que ela ira adquirir. 



CURVA DO DRAGAO 



Quando trabalhamos com curvas de 
dimensao fracionada, poucas linhas de 
programa sao necess^rias para produzir 
uma faela figura — sobretudo se utilizar- 
mos a recursao, Digite e execute o pr6- 
ximo programa para obter uma curva 
em forma de dragao. 

No programa anterior, cada reta era 
substituida por um par de retas perpen- 
diculares, tragadas sempre em uma mes- 
ma direfao. Neste programa, porem, 
pares de retas sao colocados alternada- 
mente de um e de outro lado de cada re- 
ta, ate formar a figura final. 



10 BOBDEE 0: PAPEE 0: INK 7: 

CLS ; CLEAR 30000: LET S= 

32767: DEF FN A (X) - (X/B-INT ( 

X/a) )*8 

20 LET MN-1: LET A=0 

30 LET C=ATN (l}/45; DIM S(10 

) : DIM CtlO) 

40 FOB 1=1 TO B: LET S{I)=SIN 

A 

50 LET CID-COS A: LET A=A+PI 

/4: NEXT I 

60 LET L-1Z8: LET X=52: LET Y 

=80: LET T=-l: POKE S,T+1: 

LET S^S-1 

65 t)RAW INVERSE 1; OVEH 1 ; X- 

PEEK 23677, Y-PEEK 23678 

70 GOSUB 1000 

80 STOP 
1000 LET L=L/1.414 
1010 IF L<MN THEN LET L'=L*1.41 
4: LET X'X+tL^CCD) : LET Y-Y- (L 
«S(I)): DRAW X-PEEK 23677, If-PEE 
K 2 367S: HETUHN 

1020 LET I-FN ACI+T) : POKE S . T+ 
1: LET S=S-1; LET T=l; G03UB 10 
00: LET S = S+1: LET T= (PEEK S}-1 
1030 LET 1-FN A(I-2*T) : POKE S, 
T+1: LET S=S-1 : LET T=-l: GOSUB 

1000 
1040 LET S-S-^1 ; LET T={PEEK B) - 
1: LET I=FN A(I+T) : LET L=L*1.4 
14: HETURN 

D 

10 PMODE 4 rPCLS: SCREEN 1,1:CLEA 



R 200,30000:3=32767 

20 MN=1 

30 C-ATN{13/45:PI-4*ATNC1) 

40 FOR 1-0 TO 7:S(I)-SIN(A) 

50 C(1)-C0S tA) :A-A+PI/4:NEXT 

60 L-128:X»-52:V-80:T--1:POKE S, 

T+1:S=S-1 

65 LINE -CX.Y) , PRESET 

70 GOSUB 1000 

80 GOTO 80 

1000 L=L/1.414 

1010 IF L<:MN then L-L*1.414;X-3< 

+CL*C(I)> ;Y=y-<L*(S(I) ) :LINE-(X 

.Y) ,PSET: RETURN 

1020 I=(I+T) AND 7:P0KE 3,1+1:3 

-S-1 :T-1 : GOSUB 1000 : S-S+1 : T=PEE 

K{S)-1 

1030 I«(I-2*T) AND? : POKE S,T+1:S 

-S-1 :T— 1 :GOSUB 1000 

1040 S-S+1:T-PEEK(S)-1 :I"CI+T) 

AND 7:L-L*1.4i4:RETURN 



to S = 900 

20 HGP2 :MN = 1 

30 C = ATN U) / 4S:PT = 4 * 

ATM CI} 

40 FOR I = TO 7:3(1) = SIN 

<A) 

50 CCt) - COS (A) :A = A + PI / 

4: NEXT 
60 L = 128:X = S2:Y = 80:T = - 

1: POKE S.T + J :S = S - 1 
65 HCOLOH= 3: HPLOT X,Y TO X,Y 

70 nOSUB iOOO 
80 GOTO 80 
1000 L = L / 1 .414 
1010 TF L < MN THEN I. = L * 1 . 
414:X = X + (L * C{I)) :¥ = Y - 
(L * SCD): HPLOT TO X.V: RETU 
ElK 

1020 I = ( (T + T) - 8 * TNT f [ 
T + T3 / 83 ) : POKE S,T + [ :?> = 
S - 1:T = I: GOSUB 1000:H =■ S + 

1:T = PEEK CS) - 1 
1030 1 = ( (I - 2 * T) - B * TN 
T ( (I - 2 * T) / «) 3 ■ POKE S. r 
+1:S=S-1:T= -1: GOBUB L 
000 

1040 £ = S + l:T = PEEK (i=) - 
1 il = ( (J + T) AND 7) :L ^ I * 1 
.414: RETURN 



m 



10 SCBEEN 2:CLEAR 200 , 50000 !: S- 
52767! 
20 MN-] 

30 C=ATNtl3/45:PI=4*ATN(l) 
40 FOR 1=0 TO 7:S(T3=SIN(A) 
50 C(I3=C0S(A) :A=A+PT/4:NEXT 
60 L=12B:X=52:Y=9Q:T--1:P0KE S. 
T+1;S=S-1 
6.") LINE -(X.V) .4 
70 GOSUB 1000 
80 GOTO 80 
1000 L-L/1.414 

1010 IF L<MN THEN L=L*1 .414 ; X=X 
+ (L*C{I)3 :Y=Y-(L*S(I3) :LI.NE -(X 
,Y3 ,11: RETURN 
1020 T={I+T) AND 7:P0KE S.T+1:S 




E)ci5te alguma aplicapio pr^tica para os 
fractajs? 

Os tractais sic uma descoberta re- 
lativamente recente da matemStica e 
das cifinciasda computacao. Assim, h^ 
muito a ser investigado acerca de seu 
funcionamento e as apltcapoes prdticas 
ainda sao bastante restritas. Os frac- 
tals oferecem aos artistas e cientistas 
a possibilidade de representar as for- 
mas irregulares, ti'picas da natureza, e 
jS t4m marcado sua presenca no mun- 
do das artes grSficas, cinema, teievi- 
sao etc. Grandes empresas de televi- 
sao, per exempio, estao utilizando frac- 
tals randomicos para gerar em compu- 
tador fantSsticas paisagens e cen^rios, 
terrestres ou extraterrestres. A simu- 
lagao fractal apresenta a vantagem de, 
com pepuenas mudanpss nos pareime- 
tros do programa, produzir efeitos to- 
talmente diferentes na tela. 

Outra apiicagao prdtica interessan- 
te dos fractals 6 o desenho de cenSrios 
complexos em slmuladores de voo. A 
Forga A^rea norte-americana j^ dispoe 
de programas que permitem gerar o ce- 
n^rio de uma bataiha a6rea entre mon- 
tanhas escarpadas, sobre desertos 
etc., para trelnar o piioto de helic6pte- 
ros ou capas. 



=3-1 :T=1 :GOSUB 1000 : S=S+1 !T=PEE 

KtS5-l 

1030 1=(I-Z*T) AND 7:P0KE S,T+1 

;S=S-1:T=-] :G0SUB 1000 

1040 S=S+1:T=PEEKCS) -1 :I=(I+T)A 

ND 7rL = L«1.4.l4:RETURN 



Esse programa difere do anterior 
quanto a regra de forma^ao do desenho 
e, tambem, quanto k velocidade de exe- 
cucao. Era vez de elaborar o angulo ca- 
da vez que um elemento e trapado, o 
programa calcula o seno e o co-seno dos 
angulos (linhas 40 e 50) e coloca os va- 
lores obtidos em duas matrizes. Recu- 
perar esses valores em uma matriz e bem 
raais rdpido que calcula-ios sempre que 
uma linha e reconstruida. 

A curva era C e a curva do dragao 
nao sao apenas curiosidades matemati- 
cas. Alem de muito bonitas, elas cons- 
tituem um interessante objeto de estu- 
do. Procure, por exemplo, alterar al- 
gUEs valores dentro dos dois programas. 
Voce obterd, entao, um estoque inesgo- 
tivel de novas formas. 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



PROGRAMApAO BASIC 

A tela de textos do MSX. Desenho das letras. A funcao BASE. 
Tabela de Padroes. Como criar um novo conjunto de caracteres. 

APLICAQOES 

USD do microcomputador no planejamento de ambientes. 
Como tirar as tnedidas. Desenhos e escala. O giro das pepas. 

PROGRAMACAO BASIC 

Simulacao de imagens com a tecnica dos fractals. Simetria e 
assimetria. Programa gerador de figuras. Teste do programa. 

PROGRAMACAO BASIC 

Bits e bytes em BASIC. IVludanca de um bit. 
Combinagoes. AND, OR e NOT. 



PrM»CO 



69 



AlA^<;^o 



Ot JOGOS 



- coow 
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